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How to Use This Manual 


This manual is intended as a reference for programmers and analysts 
using the Ultimate PROC software package. It covers all aspects of 
using PROC with the Ultimate system commands and the BASIC 
programming language. The material is presented in a structured 
format, with text and graphics integrated into single-topic units. 


How the Manual is Organized 

Chapter 1 is an introduction to PROC. This chapter describes: 

• what PROC is and how to use it 

• the PROC buffers 

• components of a PROC 

• PROC execution 

• PROC execution example 

• system commands associated with PROC 

• BASIC statements that interact with PROC 

• PROC commands by function 

Chapter 2 is an alphabetical PROC commands reference. Syntax and 
usage are provided for each command. Examples are given for most 
commands. 

Chapter 3 presents sample PROCs and explains them in detail. 
Appendix A consists of a listing of ASCII codes. 


v 
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Conventions 


This manual presents general formats for each of the PROC commands. 
In presenting and explaining these general forms, the following 
conventions apply: 

Convention_Description_ 


UPPER CASE Characters or words in syntax definitions shown in 

upper case must be entered exactly as shown. 

PROC commands cannot be entered in lower case. 


lower case 


{} 

enter 


J 

<KEY> 


Courier 


Helvetica 

bold 

t 


Characters or words in syntax definitions shown in 
lower case are parameters to be supplied by the 
programmer, such as filename, itemlist, and 
options. 

Braces surrounding a parameter indicate that the 
parameter is optional. 

The word enter means to type in the required text 
and press RETURN. 

The J symbol means press the RETURN key on the 
keyboard. It is used in examples. 

Angle brackets indicate a key other than letters, 
numbers, or punctuation, such as <ESC>. 

Courier typeface is used for messages or prompts 
displayed by the system and, when boldfaced, for 
user input. 

Helvetica typeface is used for title headings. 

In courier font, boldface type is used in syntax 
definition and to indicate user input. 

An arrow in a PROC example indicates the current 
location of the pointer in an active buffer. 

An underscore in a PROC example represents a 
blank. 


parameters Elements in buffers. 

current parameter The data from the current position of the pointer to 
the end of the parameter. 
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How to Use This Manual 


arguments 

statement 

filename 


Variable parts of the syntax. 

Used when referring to a command and its 
complete text. 

The word filename can indicate any of the 
following, depending on the section of the file to 
be accessed: 

• dataname. Specifies the DATA section of a file 
with the same name as its DICT. 

• dictname,dataname. Specifies a DATA 
section when the dictname has multiple DATA 
sections. 

• DICT dictname. Specifies the DICT section of 
a file. 

• DICT dictname,dataname. Specifies the 
DICT section of a file. Same as DICT 
dictname above. 

• data dataname. Specifies the DATA section 
of a file with the same name as its DICT. Same 
as dataname above. 

• data dictname,dataname. Specifies the 
DATA section when the dictname has multiple 
data sections. Same as dictname,dataname 
above. 
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The word PROC is used in two ways: 

• it is the name of a language just as BASIC, FORTRAN, or COBOL are 
names of languages 

• it is the identification of a stored procedure written in the PROC 
language 

Stored procedures are not called PROC programs; they are simply called 
PROCs. Therefore, it is appropriate to say that a PROC is a stored 
procedure made up of PROC commands and Terminal Control Language 
(TCL) statements. Any sequence of operations that can be keyed in 
directly by a user at the TCL level can also be prestored via PROC. The 
PROC then passes the sequence of operations to TCL for execution. 

PROCs are often used for generating TCL statements and associated data 
that the TCL statements may require. PROCs are also commonly used to 
create menus and then, based on user input, call other PROCs. 

A PROC provides the following features: 

• a means of storing a sequence of operations that can then be invoked 
from the terminal by a one- or multi-word command 

• conditional execution of statements 

• the ability to interactively prompt the terminal user 

• the ability to test and verify input data as it is entered from the terminal 
keyboard 

A PROC can exist in a master dictionary, or it can be stored as an item in 
any dictionary or data file. If a PROC is stored in a master dictionary, it 
can be executed directly by keying its name in as a command at the TCL 
level. If a PROC is stored elsewhere, it can be executed by using the 
RUNPROC command or it can be called by another PROC in a master 
dictionary or elsewhere. 
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Introduction to PROC 


The first line (attribute 1) of a PROC is always the code PQ. This 
specifies to the system that what follows is to be executed by the PROC 
processor. All subsequent lines contain PROC statements. 

PROC statements consist of an optional numeric label, a one- or 
two-character command, and optional command arguments. PROCs can 
be created and modified using either the line editor, ED, or the screen 
editor, SE. A PROC can also be created from any statement in the TCL 
stacker by using the BUILD-PROC command. 
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The PROC Buffers 

Note: All commands used in the following discussions are described 
in detail in Chapter 2 of this manual. 

PROC utilizes two input and two output buffers: 

• the primary input buffer 

• the secondary input buffer 

• the primary output buffer 

• the secondary output buffer (sometimes referred to as the stack) 

Operations specified within a PROC involve the movement of data from 
either of two input buffers (data storage areas) to either of two output 
buffers, thus forming the desired TCL statements. At any given time, 
one of the input buffers is specified as the active input buffer, while one 
of the output buffers is specified as the active output buffer. Buffers are 
selected as active via certain PROC commands such as IN, IP, S, SP, SS, 
STOFF, and STON. When moving data between the buffers, the source 
of transfer is the active input buffer. The destination of the transfer is 
the active output buffer. The PROC output buffers can then be passed to 
TCL for execution. 


Primary Input The primary input buffer contains the PROC name and any arguments. 

Buffer exactly as they were entered when the PROC was invoked. The contents 

of this buffer remain the same throughout the execution of the PROC 
unless explicitly modified by an Input (IH, IP, IT), Reset (RI), +, or - 
command. 


Secondary The secondary input buffer can contain variable data from one of several 

Input Buffer sources at any given time. It receives data from certain system software 

(for example, the spooler when a hold file is created). It can hold data 
input by the user in response to an IN, IP, or IS command. System 
message identifiers are also reported in this buffer as a result of 
executing the last TCL statement. The data in this buffer is temporary 
and is erased by subsequent IN or IS commands. 
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Introduction to PROC 


Primary 
Output Buffer 


Secondary 
Output Buffer 


The primary output buffer is used to build one TCL statement that is 
eventually executed by a P, PH, PP, or PW command. After the statement 
in the primary output buffer is executed, PROC regains control at the 
statement immediately following the P command. If the statement being 
executed is itself a PROC, at the conclusion of that statement, control is 
returned to TCL, not to the current PROC. 

The A command is used to copy data from the active input buffer to the 
active output buffer. The H command is used to copy data from the H 
command line in the PROC to the active output buffer. The primary 
output buffer is the active output buffer unless a STON command has 
been executed prior to the H command. 

A carriage return is automatically maintained at the end of the primary 
output buffer. This means that a carriage return never needs to be 
explicitly added at the end of the TCL statement in the primary output 
buffer. 


The secondary output buffer is used for data needed by the TCL 
statement created by the PROC. For example, a BASIC program executed 
from a PROC may contain an INPUT statement; data in the secondary 
output buffer would be used by the INPUT statement to complete the 
program execution. 

The secondary output buffer is sometimes referred to as the stack; the 
secondary output buffer is a FIFO (first-in, first-out) stack, which must 
be selected as the active output buffer in order to receive data. The 
STON command is used to select the secondary output buffer to be active 
(see the STON command listed alphabetically in Chapter 2). 

In contrast to the primary output buffer, which contains a single line of 
data (a statement) to be passed to TCL, the secondary output buffer is 
used to store zero or more lines of data to satisfy terminal input requests 
by the processor invoked by the TCL statement being executed. (The 
word line here refers to a string of characters terminated by a carriage 
return.) 


1-4 


Ultimate PROC Reference Guide 

Confidential and Proprietary to The Ultimate Corp. 


6936-3 




PROC Buffers 


Parameters 


The characters can be all on one line or they can be separated from the 
next line by a < delimiter corresponding to a carriage return at the 
terminal. The < delimiter is placed in the secondary output buffer via 
the H command. 

Similar to the primary output buffer, a carriage return is automatically 
maintained at the end of the secondary output buffer. This means that a 
carriage return never needs to be explicitly added after the last (or only) 
line of data in the secondary output buffer. However, a carriage return 
must be explicitly placed after each data line prior to the last one in the 
secondary output buffer. 

Each request for terminal input (for example, each INPUT statement in a 
BASIC program) is satisfied with a line of data from the secondary 
output buffer. If more data than exists in the secondary output buffer is 
requested, data is acquired from the terminal from that point forward. 


A parameter is a string in an input or output buffer. It is identified either 
by being separated by blanks or by being enclosed in single quote 
marks ('). The first parameter in an input buffer starts with the first 
non-blank character in the buffer. If parameters are separated by 
blanks, one blank between parameters is sufficient; however, any 
number of blanks are allowed. If parameters are enclosed in single 
quotes, one single quote should precede the parameter and one single 
quote should follow the parameter. Multiple consecutive single quotes 
are assumed to delimit multiple (null) parameters. 

If two consecutive parameters are enclosed in single quotes, blanks are 
not required between the trailing quote mark of one parameter and the 
leading quote mark of the next parameter. However, any number of 
blanks are allowed. 

If a parameter is delimited by blanks, single quotes in the parameter are 
treated as ordinary characters (that is, they are not used to terminate the 
parameter). 

If a parameter is enclosed in single quotes, blanks in the parameter are 
treated as ordinary characters (that is, they are not used to terminate the 
parameter). 
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Surround 

Characters 


Pointers 


The current parameter of an active buffer is the data from the current 
position of the pointer to the end of the parameter. 


A surround character is a character placed before and after the data being 
copied via the A command. 

If data is copied from the input buffer to the output buffer via the A 
command and a surround character is not specified, a blank is used as 
the surround character. If a backslash [\] is used as the surround 
character, data is copied without any surrounding characters. For more 
information, see the A command listed alphabetically in Chapter 2. 

If data is copied to the output buffer via an H command, there are no 
surrounding characters placed in the output buffer. 


Pointers are set to a specified location. Each buffer has a pointer which 
points to the current position of that buffer. These pointers are depicted 
in figures in this manual as arrows (+) above or below the buffers. 

PROC commands such as the B, F, S(m), and Sn commands are used to 
change the position of the input pointers. The BO command is used to 
change the position of the output pointers. 

Figure 1-1 illustrates a parameter being copied from the input buffer to 
the output buffer. The active buffers are the primary input buffer and 
the primary output buffer. Two parameters, ABC XYZ, are in the 
primary input buffer, with the current position of the input pointer at the 
first parameter (ABC). Parameter ABC is copied to the primary output 
buffer with blanks as surround characters via an A command. An H 
command is used to copy DEF to the primary output buffer. The 
secondary input and output buffers are not affected. 
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PROC Buffers 


Select-Lists 
and the 
Secondary 
Output Buffer 


001 PQ 

002 IHABC XYZ 

003 A 

004 HDEF 

Primary 

Primary 

Statement 

input buffer 

output buffer 

IHABC XYZ 

ABC_XYZ 


A 

t 

ABC_XYZ 

_ABC_ 


* 

t 

HDEF 

ABC_XYZ 

_ABC_DEF 





Figure 1-1. 

Buffer Activity 


After a SELECT, SSELECT, QSELECT, or GET-LIST statement is executed, 
and items are present, PROC goes to the secondary output buffer to 
execute a TCL statement. (PROC does not gain control between these 
commands.) If the secondary output buffer is empty, PROC displays the 
TCL prompt and waits for the user to enter a command. PROC attempts 
to execute the user's response then continues to execute the rest of the 
PROC. 

If, however, a null input (that is, an H< command) is placed in the 
secondary output buffer, PROC regains control after the select 
command. PROC can then test for the existence of a select-list (see the 
IF S command listed alphabetically in Chapter 2) before building the TCL 
statement that uses the select-list; see Figure 1-2. 

After a SELECT, SSELECT, QSELECT, or GET-LIST statement is executed, 
and no items are present, PROC does not go to the secondary output 
buffer to execute the TCL statement. PROC continues to execute the rest 
of the PROC. 
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001 PQ 

002 HSELECT MD WITH 1 = 
003 STON 

004 HSAVE-LIST ITEMS 
005 P 

006 OEnd of PROC 


:TESTJ 


[401] No items present. 
End of PROC 


EXIST.TST 


001 PQ 

002 HGET-LIST 

003 OENTER LIST-NAME+ 

004 IP? 

005 A 
006 STON 
007 H< 

008 P 

009 IF #S XNo select-list 


:SELECT INVENTORYJ 


8 items selected. 


:SAVE-LIST INVENTORYJ 


INVENTORY' saved - 1 frames used. 


: EXIST.TSTJ 

ENTER LIS T-NAME ?INVENTORY J 


items selected. 


Figure 1-2. Existence of a Select-List 
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Components of a PROC 

The first line (attribute) of a PROC must contain the code PQ. This 
identifies the item as a PROC. The remaining lines in the PROC are either 
comment lines or valid PROC statements. There is no limit to the 
number of lines in a PROC. However, each line must contain only one 
PROC statement, and each statement must begin in position one of the 
line. 

PROC statements consist of an optional numeric label, a one- or two- 
character command, and optional command arguments. PROCs can be 
created using either the line editor, ED, or the screen editor, SE. 

One or more arguments may follow a PROC command in a PROC 
statement. Whether or not a blank is required to separate arguments 
depends on the specific command. Anywhere a single blank is required 
or allowed, multiple blanks may occur. 

A comment is identified by either an asterisk (*) or C as the first 
character. The text following the asterisk (*) or the C can contain 
strings of any number of characters. This text is ignored by the PROC 
processor during execution of the PROC. 

Any PROC statement or comment may begin with a statement label. 

Such a label serves to uniquely identify its associated PROC command 
for purposes of branching or looping within the PROC. Labels must be 
numeric. Only the first occurrence of a label is used as the destination 
of any control transfer. Duplicate labels are ignored. When a label is 
used, at least one blank must separate the label from the PROC 
command. For example: 

Command _ Explanation _ 

1 a Label 1 

10 go 5 Label 10 branch to label 5 

20 if a = abc go 3 Label 20 conditionally branch to label 3 

30 c This is a comment Label 30 represents a comment line. 

Processing continues with the next PROC 
line 


6936-3 


Ultimate PROC Reference Guide 
Confidential and Proprietary to The Ultimate Corp. 


1-9 


Introduction to PROC 


When a PROC is executed, processing begins at the second line and 
continues until one of the following occurs: 

• an X command is encountered 

• a (...) command transfers control to another PROC 

• an attempt is made to execute past the last line of the PROC 

The PROC commands are listed by function at the end of this chapter so 
that new programmers can get acquainted with them. Chapter 2 
presents a complete description of each command in alphabetical order 
as a reference for programmers. 
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PROC Execution 

A PROC can be executed in the following ways: 

• by entering its name at the TCL level 

• from a BASIC program via an EXECUTE statement 

• by the RUNPROC command 

• by another PROC calling it 

• by another PROC transferring control to it 

The PROC processor both interprets and executes the PROC, so no 
compilation phase is required. 

Once a PROC is invoked, it remains in control until it terminates. When 
the PROC temporarily relinquishes control to other system software such 
as Ultimate RECALL®, a BASIC program, or a programmer-supplied 
subroutine, it regains control when the executed software terminates. 

If a TCL statement resides in the primary output buffer, TCL can regain 
temporary control when all desired data has been moved to the output 
buffers. Temporary control is passed to TCL via a P, PH, PP, or PW 
command. The TCL statement that resides in the primary output buffer 
is executed and the data in the secondary output buffer (if any) is used to 
feed data to the command, such as a BASIC program or a COPY 
command. 

When the TCL statement has completed, control returns to the PROC to 
the statement immediately following the P command. At that time, both 
output buffers will be empty, both primary buffers will be active, and all 
data previously placed in the secondary output buffer will be cleared 
whether it was used or not. 

Note: When control is passed to TCL via a PX command, the PROC 
terminates after the TCL statement has been executed (see the P 
command listed alphabetically in Chapter 2). 

TCL only regains control when a PROC has not been called from another 
PROC and the PROC is terminated explicitly, or when an attempt is made 
to execute past the last line of the PROC. 
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PROC Execution Example 

Figure 1-3 is a PROC stored as item LISTDICT in the PROCLIB file. The 
PROC passes data from a TCL statement to Ultimate RECALL. The actual 
LISTDICT PROC can be displayed to the terminal by entering the 
following at TCL: 

CT PROCLIB LISTDICT 


LISTDICT 

001 PQ" 

002 C Sort all attribute or synonym definitions in any 
003 C dictionary and list them on the terminal or the 
004 C lineprinter if LPTR specified. 

005 H SORT DICT D/CODE A/AMC S/NAME S/AMC V/CONV 
V/CORR V/TYP V/MAX WITH D/CODE "A ,,,, X ,,,, U n BY 
A/AMC BY D/CODE BY *A0 

006 F 

007 IF #A H M/DICT 

008 10 A 

009 IF A G 10 


Figure 1-3. LISTDICT PROC 


/ff \ 
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The PROC in Figure 1-3 is interpreted and processed as follows: 

1. The TCL statement invokes the PROC processor and places the TCL 
statement into the primary input buffer. Each word is considered to 
be a parameter in the buffer. The primary input pointer points to 
the first parameter. 

2. Lines 2, 3, and 4 are comment lines that explain the PROC's 
purpose and are not processed. 

3. Line 5 is an H statement, which causes the following text to be 
placed into the primary output buffer: 

SORT DICT D/CODE A/AMC S/NAME S/AMC V/CONV V/CORR 
V/TYP V/MAX WITH D/CODE "A""X""U" BY A/AMC BY 
D/CODE BY *A0 

This text is a SORT statement that sorts the DICT items that have a 
value A, X, or U in the D/CODE attribute. 

4. Line 6 is an F command, which moves the primary input pointer 
forward one parameter. 

5. Line 7 checks for a second parameter; if there is not one, it moves 
the characters _M/DICT to the primary output buffer, which would 
cause the SORT to list the account's master dictionary. 

6. Line 8 moves the current parameter from the primary input buffer to 
the primary output buffer. If there had been no parameter, nothing 
would have been moved. 

7. Line 9 checks for another parameter. If there is one, PROC loops 
back to line 8 to copy the parameter. (For example, there could be 
a (P to indicate the report is to be sent to the spooler.) 

8. There are no more lines, so the primary output buffer is executed. 
At the TCL level, the SORT statement is interpreted as a TCL 
statement that calls the Ultimate RECALL software for execution of 
the sort. This Ultimate RECALL statement causes the selected items 
to be sorted and the data from the specified file to be listed. (Refer 
to The Ultimate RECALL and Ultimate UPDATE®User Guide for 
details on the SORT command.) 

9. At the conclusion of the sort, control is returned to the PROC. 
Because there are no further PROC statements, the PROC is 
terminated and control returns to TCL. 
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The user can execute this PROC from the SYSPROG account by entering 
the following at TCL: 

LISTDICT STAT-FILE 

Figure 1-4 shows the execution of LISTDICT. 


STAT-FILE : %UT 
CODE A 
A/AMC 0 
S/NAME %LJT 

CONVERSIONS A; (7*"100")/(12 *"FRMSIZE'M TSTAT-FILE;X;/1)) 

TP R 
MAX 3 

STAT-FILE : 5 
CODE A 
A/AMC 0 
S/NAME AV/ITM 
CONVERSIONS MR0,Z 
CORRELATIVES F7;6;/ 

TP R 
MAX 6 

STAT-FILE : 9 
CODE A 
A/AMC 0 
S/NAME %LJT 


Figure 1-4. Execution of LISTDICT PROC 
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System Commands Associated With PROC 

The following system commands described in this section are 
commands associated with PROC. Refer to the Ultimate System 
Commands Guide for more details on the commands. 

BUILD-PROC command builds a PROC from a TCL statement. 

LISTPROCS command sorts and lists all PROCs in a file. 

RUNPROC command executes a PROC from a specified file. 


( 
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BASIC Statements That Interact With PROC 

The following BASIC statements are statements that interact with PROC. 

Refer to the Ultimate BASIC Language Reference Guide for more details 

on the statements. 

ABORT statement terminates program execution. If the 

program was run from a PROC, the PROC 
is terminated as well. 

CHAIN statement terminates program execution and passes 

control to a specified TCL statement. If 
the program was run from a PROC, 
control is not returned to the PROC prior 
to executing the TCL statement. 

CLEARDATA statement all data previously placed on the stack and 

not yet used is removed, even when that 
data stack has been established by a 
PROC. 

DATA statement is used to store data for stacked input. If 

a PROC passes data to the program as an 
argument via the PROC's secondary 
output buffer, the input is stacked at the 
beginning and should be used as soon as 
possible since the first DATA statement 
overwrites any unprocessed stacked 
input. 

EXECUTE statement allows a BASIC program to execute any 

valid TCL statement and to use the results 
of the statement in later processing. If a 
BASIC program calls a PROC using an 
EXECUTE statement, control returns to the 
BASIC program when all PROC 
processing has finished. 
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BASIC Statements That Interact With PROC 


INPUT statement 


PROCREAD statement 


PROCWRITE statement 


PUT statement 


STOP statement 


is used to request data. If both INPUT and 
DATA statements are used in a program, 
any INPUT statements intended to process 
input from an external source (such as a 
PROC or user input) should appear in the 
program prior to any DATA statements. 
The first DATA statement overwrites any 
unprocessed stacked input. 

allows programs executed from PROC to 
read values in the primary input buffer 
and store them in a variable. 

allows programs executed from PROC to 
write to the primary input buffer. 

places a system message into the output 
of a program. The message is also placed 
in the system message buffer and may be 
passed back to a PROC. If the program is 
invoked by a PROC, the buffer can be 
later inspected by the PROC using the IF E 
command. 

terminates program execution. If the 
program was run from a PROC, the PROC 
is not terminated. 
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PROC Commands By Function 

The following pages list the PROC commands by function. By 
reviewing the commands as grouped here, you can get an overview of 
PROC's capabilities. 

Note : Many commands appear in more than one category because 
they affect more than one thing. 

PROCs perform the following functions: 

External Results Testing _ 

IF E tests for system message after executing a TCL statement 

IF S tests for select-list 


Execution Control _ 

* comments 

(...) transfers control to specified PROC 

[... ] executes a PROC as a subroutine 

C comments 

G{0} branches to specified PROC statement label 

IF tests specified parameter and conditionally executes the 

PROC command which follows on the same line 

P executes the TCL statement in the primary output buffer 

PH executes the TCL statement in the primary output buffer, 

suppresses terminal output associated with the command 

PP displays both output buffers, then executes the TCL 

statement in the primary output buffer 

PW displays both output buffers, then waits for terminal 

input before conditionally executing the TCL statement in 
the primary output buffer 

PX executes the TCL statement in the primary output buffer; 

control is transferred, upon completion of the TCL 
statement, the same as if an X command were executed 
next in the PROC 
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X 

exits current PROC and transfers control to TCL, the 
calling PROC, or the BASIC program. 

Selecting 

Buffers 

IN 

selects the secondary input buffer and prompts for input 
which is then stored in the secondary input buffer 

IS 

selects secondary input buffer and prompts for input 
which is then stored in the secondary input buffer 

S(m) 

selects the primary input buffer and positions pointer at 
column position m 

SP 

selects the primary input buffer 

SS 

selects the secondary input buffer 

STOFF 

selects the primary output buffer 

STON 

selects the secondary output buffer 

Terminal 

Use 

D 

displays parameter stored in the active input buffer 

IN 

selects the secondary input buffer and prompts for input 
which is then stored in the secondary input buffer 

IP 

prompts for input which is then stored in the active input 
buffer 

IS 

selects the secondary input buffer and prompts for input 
which is then stored in the secondary input buffer 

o 

displays text 

T 

terminal control command; outputs text, bell, or cursor 
positioning control codes 
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Working with Input Buffers _ 

+n adds n to the current parameter in the active input buffer 

-n subtracts n from the current parameter in the active input 

buffer 

A copies data from the active input buffer to the active 

output buffer 

B moves the pointer back one parameter in the active input 

buffer 

D displays parameter stored in the active input buffer 

F moves pointer forward one parameter in active input 

buffer 

IF tests specified parameter and conditionally executes the 

PROC command which follows on the same line 

IH copies data to the active input buffer 

IN selects the secondary input buffer and prompts for input 

which is then stored in the secondary input buffer 

IP prompts for input which is then stored in the active input 

buffer 


IS selects the secondary input buffer and prompts for input 

which is then stored in the secondary input buffer 

IT reads current tape label from attached tape unit and stores 

it in the primary input buffer 

RI resets (clears) both input buffers and selects the primary 

input buffer 

S(m) selects the primary input buffer and positions pointer at 

column position m 

Sn positions the input pointer at parameter n in the active 

input buffer 



( n 

Ultimate PROC Reference Guide 6936-3 

Confidential and Proprietary to The Ultimate Corp. 





PROC Commands By Function 


6936-3 


Working with Output Buffers _ 

A copies data from the active input buffer to the active 

output buffer 

BO moves the pointer back one parameter in the active output 

buffer 

H copies data to the active output buffer 

P executes the TCL statement in the primary output buffer 

PH executes the TCL statement in the primary output buffer, 

suppresses terminal output associated with the command 

PP displays both output buffers, then executes the TCL 

statement in the primary output buffer 

PW displays both output buffers, then waits for terminal 

input before conditionally executing the TCL statement in 
the primary output buffer 

PX executes the TCL statement in the primary output buffer; 

control is transferred, upon completion of the TCL 
statement, the same as if an X command were executed 
next in the PROC 

RO resets (clears) both output buffers and selects the primary 

output buffer 
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In this chapter, each command is described separately in detail. The 
commands are presented in alphabetical order. Each command begins 
on a new page, and consists of one or more pages, as necessary. 

The following information is provided for each command: 

• a brief description of the command's function 

• the exact syntax of the command 

• a detailed description of the command's usage 

• PROC examples, if any, with an explanation and sample output 

The commands identified by symbols, such as the + command and the 
[...] command, are listed before the commands with alphabetical names. 

In a PROC example, an arrow [+] indicates the current location of the 
pointer in an active buffer and underscores [_] represent blanks. 
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A Summary of the PROC Commands 

The valid PROC commands are as follows: 


General Command Format 

Command Description 

* {text} 

comments 

+n 

adds n to the current parameter in 
the active input buffer 

-n 

subtracts n from the current 
parameter in the active input 
buffer 

(filename {item-lD}) {n} 

transfers control to specified 
PROC 

[filename {item-ID}] {n} 

executes a PROC as a subroutine 

A{c}{p}{,m} 

copies data from the active input 
buffer to the active output buffer 
by parameter 

A{c}((n}{,m}) 

copies data from the active input 
buffer to the active output buffer 
by character 

B 

moves the pointer back one 
parameter in the active input 
buffer 

BO 

moves the pointer back one 
parameter in the active output 
buffer 

C{text) 

comments 

D{p}{,n}{+} 

displays parameter stored in the 
active input buffer 

F 

moves pointer forward one 
parameter in the active input 
buffer 
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G{0}n 

G{0}A{m} 

H{data}{<) 

IF {#}a-stmtproc-stmt 
IF(N} a-stmt op string proc-stmt 
IF a-stmt op (pattern) proc-stmt 

IF(N) (#)E {op string) proc-stmt 

IF (#)S proc-stmt 
IH{data) 

IN(r) 

IP{r) 

IS (r> 

rr 

0{text){+) 


branches to specified PROC 
statement label 

branches to a PROC statement 
label referred to by the specified 
parameter in the active input 
buffer 

copies data to the active output 
buffer 

tests for existence of parameter 

tests for parameter relations 

tests for pattern matching on 
parameter 

tests for system message after 
executing a TCL statement 

tests for select-list 

copies data to the active input 
buffer 

selects the secondary input buffer 
and prompts for input which is 
then stored in the secondary input 
buffer 

prompts for input which is then 
stored in the active input buffer 

selects the secondary input buffer 
and prompts for input which is 
then stored in the secondary input 
buffer 

reads current tape label from 
attached tape unit and stores it in 
the primary input buffer 

displays text 
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p 

executes the TCL statement in the 
primary output buffer 

PH 

executes the TCL statement in the 
primary output buffer, suppresses 
terminal output associated with 
the command 

PP 

displays both output buffers, then 
executes the TCL statement in the 
primary output buffer 

PW 

displays both output buffers, then 
waits for terminal input before 
conditionally executing the TCL 
statement in the primary output 
buffer 

PX 

executes the TCL statement in the 
primary output buffer; control is 
transferred, upon completion of 
the TCL statement, the same as if 
an X command were executed 
next in the PROC 

RI(P) 

resets (clears) both input buffers 
and selects the primary input 
buffer 

RO 

resets (clears) both output buffers 
and selects the primary output 
buffer 

S(m) 

selects primary input buffer and 
positions pointer at column 
position m 

Sn 

positions input pointer at 
parameter n in the active input 
buffer 

SP 

selects the primary input buffer 

SS 

selects the secondary input buffer 

STOFF 

selects the primary output buffer 

STON 

selects the secondary output 
buffer 
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T {f{,f{,f{...}}}} {,} terminal control command; 

outputs text, bell, or cursor 
positioning control codes 

X{text) {+} displays text, exits current PROC, 

and transfers control to TCL, the 
calling PROC, or the BASIC 
program 
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* - Comment 


The * command allows comments within the body of a PROC. 


Syntax *{text} 

text Specifies the comment; it can contain any characters, 

including blanks. 

Description The text following the * command can contain strings of any number of 
characters. This text is ignored by the PROC processor during execution 
of the PROC. 

The C command can also be used to place comments in a PROC. (See 
the C command listed alphabetically in this chapter.) 


001 PQ 

002 * This is an example of a comment line 


f r- 
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+ and - - Arithmetic Functions 


+ and - - Arithmetic Functions 

The + command adds the specified number to a decimal parameter in the 
active input buffer. The - command subtracts the specified number from 
the decimal parameter in the active input buffer. 


Syntax +n 

-n 


n The specified number (decimal integers); must be 

between ±(2 31 -1). 


Description Prior to executing a + or - command, the input pointer must be pointing 
to the first digit of the decimal parameter. If the decimal parameter is 
negative, the input pointer must be pointing to the - (negative) sign. 

The + and - commands do not change the location of the input pointer. 

If the input pointer is currently at the end of the buffer, the + and - 
commands have no effect. 

Note: When initializing a decimal parameter, leading zeroes should 

be used to make sure the initial value contains the same 
number of digits as all anticipated values created by 
subsequent + and - commands; otherwise, other parameters 
may be overwritten. Allow for the - sign for negative 
numbers. 

No arithmetic overflow is reported. Values used by arithmetic 
operations are integers between ±(2 31 -1). 

If a parameter begins with non-numeric characters, it will be replaced by 
argument n. For example, assume the input buffer contains XYZ and the 
pointer is pointing to X; +1 will yield lYZ. 
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001 PQ 

002 *Reset input buffers to null 
003 RI 

004 *Copy data into primary input buffer 

005 IHABC 001 XYZ 

006 *Move input pointer forward 

007 F 

008 *Add 99 to current parameter 
009 +99 


Statement 

IHABC 001 XYZ 

F 

+ 99 


Primary input buffer 

ABC_0 01_XY Z 

+ 

ABC_0 01_XYZ 

t 

ABC_10 0_XY Z 

t 


001 

PQ 



002 

*Reset 

input 

buffers to null 

003 

RI 



004 

*Copy 

data into primary input buffer 

005 

IHABC 

001 XYZ 

006 

*Move 

input 

pointer forward 

007 

F 



008 

^Subtract 99 

from current parameter 

009 

-99 



Statement 


Primary input buffer 

IHABC 001 

XYZ 

ABC_0 01_XYZ 




t 

F 



ABC_0 01_XY Z 




t 

-99 



ABC_-9 8_XY Z 




t 
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(...) - Transfer Control 

The (...) command transfers control to another PROC (specified within 
the parentheses), with no provision for returning to the current PROC. 


Syntax 


(filename {item-iD}) {n} 


filename Specifies the file in which the PROC to be executed is 
stored. 

item-iD Specifies the name of the PROC to be executed. If 

omitted, the data starting at the current position of the 
input pointer to the end of the parameter is used as the 
item-ID. 


n Specifies a label in the PROC where control should be 

transferred. If omitted, control is transferred to the 
second line of the PROC (it is assumed that the first line 
contains the PQ code). 


Description The (...) command transfers control from the current PROC to the 
specified PROC. Once control has been transferred to the specified 
PROC, control does not return to the calling PROC. 

The specified PROC can exist in any dictionary or data file. This allows 
the storage of PROCs outside of the master dictionary. 

When a (...) command is executed, the PROC buffers remain 
unchanged. 
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LINK 

001 PQ 

002 OEnter the item-ID of the PROC to be executed + 

003 C User specifies the PROC to execute by entering its item-ID 
004 IN? 

005 C Execution is transferred to the user specified PROC in the 
006 C PROCLIB file 
007 (PROCLIB) 

Output to terminal 

:LINKJ 

Enter the item-ID of the PROC to be executed? LISTUSERSJ 


CH# . 

, PCBFIC 

) NAME. 

. TIME.. 

DATE.... 

LOCATION 

000 

000200 

P 

08:00 

01/01/92 

Paul's Of fice 

002 

000240 

CM 

09:10 

01/01/92 

Shop Floor 

003 

000260 

LC 

07:30 

01/01/92 

Larry’s Office 

004 

000280 

JP 

10:14 

01/01/92 

East Wing 

*006 

0002C0 

SAL 

08:35 

01/01/92 

Sally's Office 

010 

000340 

JET 

09:00 

01/01/92 

Lobby 
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[...] - Subroutine Cali 

The [...] command can be used to perform a call to an internal 
subroutine or a call to an external subroutine. 


Syntax 


[] (n} 

[filename {item-lD}] {n} 

filename Specifies the file in which the PROC is stored. 

item-ID Specifies the name of the PROC to be executed. If 

omitted, the data starting at the current position of the 
input pointer to the end of the parameter is used as the 
item-ID. 

n Specifies a label in the PROC where control should be 

transferred. If omitted, control is transferred to the 
second line of the PROC (it is assumed that the first line 
contains the PQ code). 


Description The first form of the [...] command performs a call to an internal 

subroutine. The second form of the [...] command performs a call to an 
external subroutine. 

Both forms of the command store the location of the next PROC 
command in the PROC subroutine's stack and then transfers control to 
the specified location or PROC. Execution of PROC commands 
continues from that point until an X command or the end of the PROC is 
encountered. Once the call finishes, control returns to the next line 
following the call in the calling PROC. 

In both internal and external PROC calls, neither the input nor output 
buffers are affected by the call itself or a subsequent return. 
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The following example shows an internal subroutine call. 


SUB.EXAMPLE 
001 PQ 

002 C Control transfers to label 3 
003 [] 3 

004 C Control continues here after return 
005 OFIRST 
006 3 OSECOND 

Output to terminal 

:SUB.EXAMPLEJ 

SECOND 

FIRST 

SECOND 


The next example shows an external subroutine call using a menu. If 
the user chooses option one or two, the current PROC transfers control 
to the external PROC. If the user chooses option three, the PROC is 
terminated. 
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GO.EXAMPLE 
001 PQ 

002 C This PROC shows the use of menus 

003 C with the [] command 

004 C Display menu 

005 10 OMain Menu 

006 01. List users on the system 

007 02. Enter new customer 

008 03. Exit 

009 O 

010 OEnter option+ 

011 SI 
012 IP? 

013 IF A = 1 [MD LISTU] 

014 IF A = 2 [PROCLIB OPT2] 

015 IF A = 3 XGOOD BYE 

016 OPress return to redisplay main menu 
017 IP 
018 G 10 

Output to terminal 

:GO.EXAMPLEJ 

Main Menu 

1. List users on the system 

2. Enter new customer 

3. Exit 

Enter option?lJ 


CH#. 

PCBFID 

NAME. 

. TIME.. 

DATE.... 

LOCATION 

000 

000200 

P 

08:00 

01/01/92 

Paul 

002 

000240 

CM 

09:10 

01/01/92 

Shop Floor 

*006 

0002C0 

SAL 

08:35 

01/01/92 

Sally 

010 

000340 

JET 

09:00 

01/01/92 

Lobby 

Press 

return 

to redisplay 

main menu: 



6936-3 


Ultimate PROC Reference Guide 

Confidential and Proprietary to The Ultimate Corp. 







PROC Commands 


A - Copy Data 

The A command copies data from the active input buffer to the active 
output buffer. 


Syntax A{c}{p}{,m} 

A{c}({n}{,m}) 

c Specifies a surround character to be placed before and 

after the copied data in the primary output buffer. 
Surround characters are not used in the secondary output 
buffer. If argument c is omitted when the primary 
output buffer is active, a blank is used as the surround 
character. If argument c is a backslash (\], data is copied 
without any surrounding characters. Argument c can be 
any non-numeric character except a left parenthesis [(] or 
a comma [,]. However, if the second form of the 
command is used, argument c can be a comma. 

Note: Surround characters are only placed around 

data in the primary output buffer, never around 
data in the secondary output buffer. Therefore, 
if the secondary output buffer is the active 
buffer, argument c has no effect. 

Specifies the parameter to be copied. The input pointer 
is moved to the parameter. If argument p is omitted, 
copying begins at the current position of the input 
pointer. 

Selects the primary input buffer as the active input buffer 
and specifies the starting column position in that buffer 
to be copied; the primary input buffer remains active after 
the command is executed. If argument n is omitted, 
copying begins at the current position of the input pointer 
in the active input buffer. 


P 


n 


/in, 

'O 
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A - Copy Data 


Description 


6936-3 


m Specifies the number of characters in the active input 

buffer to be copied (up to the end of data in the active 
input buffer) and parameter boundaries are ignored. If 
argument m is omitted, data is copied up to the end of 
the current parameter. 


Data can be copied either by parameter or by columns; this is determined 
by arguments p, n, and m. 

If a parameter in an input buffer has embedded semicolons and that 
parameter is to be copied to the primary output buffer, the A command 
treats the parameter in a special manner. Each string that is delimited by 
a semicolon is treated as a sub-parameter. Each sub-parameter is copied 
to the output buffer enclosed by: 

• the surround character, if specified 

• by blanks if no surround character is specified 

• by nothing if the specified surround character is a backslash 

The effect is as if multiple A commands were executed. The semicolons 
are not copied. 

If the parameter is enclosed in single quote marks or is being copied into 
the secondary output buffer, embedded semicolons are treated as 
ordinary characters. 

A parameter that contains embedded semicolons is treated as a single 
parameter for purposes of positioning with the argument p prior to 
starting a copy. 

At the conclusion of each A command, the input pointer ends up 
pointing to the next character after the last one copied. If two A 
commands are executed with no intervening input pointer positioning 
commands, and the second A command contains no specification for 
where the copy is to start (that is, neither arguments p nor n is 
specified), copying starts at the input pointer position resulting from the 
first A command. If the input pointer is at the end of the buffer and no 
starting position is specified, no operation occurs. 
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Blanks used to separate parameters are never copied to the output V, 

buffer. Blanks embedded within a parameter that is delimited by single 
quotes are copied to the output buffer. Single quotes used to enclose 
parameters are always copied to the output buffer. 

If the primary output buffer is active and argument c is not specified, a 
blank is used as the surround character. If a backslash [\] is used as the 
surround character, data is copied to the primary output buffer without 
any surrounding characters. The primary output pointer points to the 
end of the last parameter if there is not a surround character present. If a 
surround character is present, the primary output pointer points to the 
surround character. 

Surround characters are not used if the secondary output buffer is 
active. Argument c, if specified, has no effect. 

If argument m is used to copy a specific number of characters, 
subsequent parameter boundaries may be different than if the data had 
been copied on a parameter basis. For example, assume the active input 
buffer contains the following: 

z—\ 

'A QUICK BROWN FOX' JUMPED OVER THE LOG 

V- ^ ^ 

Parameter number 1 is 'A QUICK BROWN FOX'; parameter 2 is JUMPED; 
parameter 3 is OVER, and so on. After the following command, the 
input pointer is pointing at the blank preceding BROWN: 

A(, 8) 

A subsequent A command that does not specify any arguments will copy 
BROWN as the next parameter. 
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The following example shows the use of the A command with and 
without arguments. 


001 PQ 

002 IH'ABC DEF' 

003 A 

004 A\,2 

005 A 

XYZ 


Statement 

Primary 
input buffer 

Primary 
output buffer 

IH'ABC DEF' XYZ 

'ABC_DEF'_XYZ 

t 


A 

1 ABC_DEF 1 _XYZ 

t 

_ 1 ABC_DEF ' _ 

* 

CM 

< 

'ABC_DEF'_XYZ 

t 

ABC_DEF'_X 

t 

A 

'ABC_DEF'_XYZ 

t 

ABC_DEF '_X_ YZ_ 

* 
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B - Input Pointer Back 

The B command moves the input pointer back one parameter in the 
active input buffer. 

Syntax b 

Description After execution of the B command, parameters between the new position 
of the input pointer and the end of the buffer still exist. If the input 
pointer is at the beginning of the active input buffer, the B command has 
no effect. 


001 PQ 


002 Rl 


003 IHABC 123 DEF 


004 C Position input 

pointer to parameter DEF 

005 S3 


006 C Move input pointer back 

007 B 


Statement 

Primary input buffer 

IHABC 123 DEF 

ABC_12 3_DEF 


+ 

S3 

ABC_123_DEF 


t 

B 

ABC_123_DEF 


t 
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BO - Output Pointer Back 

The BO command moves the output pointer back one parameter in the 
active output buffer. 


Syntax bo 


Description After execution of a BO command, any parameters beyond the new 
position of the output pointer are lost. If the output pointer is at the 
beginning of the buffer, the BO command has no effect. 


001 PQ 

002 C Reset output buffers to null 
003 RO 

004 C Copy data into the primary output buffer 
005 HXXX YYY 

006 ‘Move output pointer back 
007 BO 

Primary output buffer 

XXX_YYY 

t 

XXX 

t 


Statement 

HXXX YYY 

BO 
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C - Comment 


The C command allows comments within the body of a PROC. 


Syntax c{text} 

text Specifies the comment; it can contain any characters, 

including blanks. 


Description The text following the C command can contain strings of any number of 
characters. This text is ignored by the PROC processor during execution 
of the PROC. 

The * command can also be used to place comments in a PROC. (See 
the * command listed alphabetically in this chapter.) 


001 PQ 

002 C This is an example of a comment line 
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D - Display 


Syntax 


Description 


6936-3 


Data 

The D command displays data from an input buffer to the terminal. 


D{p}{,m}{ + } 

D({n}{,m}){ + } 

p Specifies the parameter to display. If argument p is 

omitted, the display begins at the current position of the 
input pointer. If argument p is zero, the entire contents 
of the active input buffer are displayed, even if argument 
m is specified. 

n Specifies the starting column position in the primary 

input buffer to be displayed. If argument n is omitted, 
copying begins at the current position of the input 
pointer. 

m Specifies the number of characters to be displayed (up to 

the end of data in the input buffer) and parameter 
boundaries are ignored. If argument m is omitted, data 
is displayed up to the end of the current parameter. 

+ Suppresses the carriage return so that the cursor does not 

move to the next line after the data is displayed. 


Data can be displayed either by parameter or by columns; this is 
determined by arguments p, n, and m. 

If the input pointer points at the end of the buffer and no starting 
position is specified, no characters are displayed; however, a carriage 
return and linefeed are sent to the terminal. 

If a parameter in an input buffer has embedded semicolons and that 
parameter is to be displayed, the parameter is treated as a single 
parameter for purposes of display. 

The D command has no effect on the active input buffer or its pointer; 
whichever buffer was the active input buffer before the command 
remains the active input buffer after the command. 
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001 PQ 
002 RI 

003 C Copy data into primary input buffer 
004 IH 1 ABCD 1 EFG 

005 C Display first two characters 
006 D f 2 

007 C Display current parameter 
008 D 

009 C Display buffer contents 
010 DO 

Statement 

IH'ABCD' EFG 

D, 2 
D 
DO 


Primary input buffer Terminal 

'ABCD'_EFG 

+ 

'A 

'ABCD' 

'ABCD' EFG 
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F - Input Pointer Forward 


F - Input Pointer Forward 

The F command moves the input pointer forward one parameter in the 
active input buffer. 


Syntax f 


Description The F command has no effect on the contents of the active input buffer. 

If the input pointer is already at the end of the buffer, the F command 
has no effect. 


001 PQ 

002 C Reset input buffers to null 
003 RI 

004 C Copy data into the primary input buffer 
005 IHABC 123 

006 C Move input pointer forward 
007 F 

Statement 

IHABC 123 

F 


Primary input buffer 

ABC_123 

t 

ABC_12 3 

t 
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G{OJ - Transfer Control 

The G{0} command unconditionally transfers control (that is, branches) 
to a specified label in the PROC or to a label specified by a parameter in 
the active input buffer. 


Syntax g{o} n 

G{0} A{m) 

n Specifies the numeric label of the PROC command to 

which control is to be transferred. 

A Specifies a parameter in the active input buffer. 

m Specifies the ordinal number of the parameter; if m is 

omitted, the current parameter is used. 

Description The G{0) n form of the command transfers control to PROC label n. 

The G(O) A{m) form of the command allows for variable branching. It 
causes a branch to the label referred to by the specified data in the active 
input buffer. 

If the referenced label does not exist, the following error message is 
displayed and the PROC is terminated: 

[268] The destination of the PROC GO statement: 

GO n, cannot be found 


If several PROC commands begin with the same label, the GO command 
transfers control to the first PROC command which begins with the 
specified label (scanning from the top). 

Note: For information to conditionally transfer control within a 

PROC, see the IF command listed alphabetically in this chapter. 
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G{0} - Transfer Control 


001 

PQ 


002 

10 C Menu is displayed 


003 

0 


004 

0 1. List vendors 


005 

0 2. Enter new vendors 


006 

O 3. End program 


007 

O 


008 

O Enter job #+ 


009 

C Get response 


010 

IP 


Oil 

C If the response is greater 

than 3 or less than 

012 

C one, then branch to label 

10 

013 

IFN A > 3 GO 10 


014 

IFN A < 1 GO 10 


015 

C Branch based on response 


016 

o 

o 

> 


017 

C Label 1; response is 1 


018 

1 HSORT VENDORS 


019 

C Execute output buffer and 

terminate 

020 

PX 


021 

C Label 2; response is 2 


022 

2 HRUN PROGRAMS VENDOR.UPD 


023 

PX 


024 

C Label 3; response is 3 


025 

3 XBYE 


Output to terminal 


1 . 

List vendors 


2. 

Enter new vendors 


3. 

End program 

Enter job #:3J 


: 

BYE 
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PROC Commands 


H - Copy Data to Output Buffer 

The H command copies specified data to the active output buffer. 


Syntax H{data}{<} 

data Specifies the data to be copied to the active output buffer; 

it can contain any characters, including blanks. If 
omitted, a null string is used. 

< Inserts a carriage return when the active output buffer is 

the secondary output buffer. < as the last character in an 
H command marks the end of one data line in the 
secondary output buffer and the beginning of another; it 
is not required after the last data line. When the primary 
output buffer is active, < at the end of an H command has 
no special meaning, and is considered part of the data. 

Note: The line continuation character («) is no 
longer necessary. 


Description The H command causes the data (including any blanks) which 

immediately follows the H command to be placed in the active output 
buffer at the current position of the output pointer. Thus, a blank after 
the H command would place a blank into the output buffer. The primary 
output buffer is active unless a STON command is executed prior to the H 
command. 

When a data line is copied to the secondary output buffer, a carriage 
return (<) must be explicitly placed in the secondary output buffer or the 
next data line will be appended to the current line. For example, assume 
the secondary output buffer contains ABC. The following H statement: 

HXYZ 

causes XYZ to be appended to ABC in the secondary output buffer: 

ABCXYZ 
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H - Copy Data to Output Buffer 
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The following H statement will place a carriage return only in the 
secondary output buffer: 

H< 

Note: After a SELECT, SSELECT, QSELECT, or GET-LIST statement is 
executed, and no items are present, PROC does not go to the 
secondary output buffer to execute the TCL statement. PROC 
continues to execute the rest of the PROC. For an example, see 
the STON command listed alphabetically in this chapter. 


001 PQ 

002 C Select secondary input buffer 
003 SS 

004 C Copy data into input buffer 
005 IHXYZ ABC 

006 C Select secondary output buffer 
007 STON 

008 C Copy parameter XYZ to output buffer 
009 A 

010 C Place a blank, the text DE and a carriage return 
Oil C into the secondary output buffer 
012 H DE< 


Secondary 

Statement input buffer 

IHXYZ ABC XYZ_ABC 

t 

A 

H DE< 


Secondary 
output buffer 


_XYZ_ 

t 

XYZ_DE<CR> 

+ 
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IF - Conditional Branch 

The IF command transfers control to another statement within a PROC, 
based on a specified condition. 


Syntax 


IF {#}a-cmd proc-stmt 
IF{N} a-cmd op string proc-stmt 
IF a-cmd op (pattern) proc-stmt 
IF{N} {#}E {op string} proc-stmt 
IF {#}S proc-stmt 


existence test 
relational test 
pattern match test 
system message'test 
select-list test 


Description 


The IF command provides the 

• existence test 

» relational test 

• pattern match test 

• system message test 

• select-list test 


following tests: 

the existence of a specified parameter 
in the active input buffer 

the value of a parameter in the active input 
buffer 

the pattern element of a parameter in the 
active input buffer 

a previous TCL system message condition 
the existence of a select-list 


For any of the IF forms, the PROC statement that is conditionally 
executed can in turn be another IF statement; that is, IF statements can be 
nested. For example, the following statement transfers control to label 
99 if the current parameter consists of two numerals in the range 10 
through 19 (inclusive): 

IF A = (2N) IF A > 09 IF A < 20 GO 99 


The programmer can visualize nested IF statements as though implied 
AND operators were placed between them. 

The tests provided by the IF command are described in detail on the 
following pages. 

Table 2-1 lists the relational operators that can be used with IF 
statements. 


2-28 


Ultimate PROC Reference Guide 

Confidential and Proprietary to The Ultimate Corp. 


6936-3 


IF - Conditional Branch 


Table 2-1. Relational Operators 


Operator 

Symbol 

Operation 

= 

tests for equal 

# 

tests for not equal 

< 

tests for less than 

> 

tests for greater than 

[ 

tests for less than or equal to 

] 

tests for greater than or equal to 
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PROC Commands 


Existence 

Test 


Syntax 


Description 


2-30 


The existence test form of the IF command tests for the existence of a 
specified parameter in the active input buffer. If the parameter exists, 
control passes to the PROC statement specified. If the # option is used, 
the test is reversed; that is, if a parameter does not exist, control is 
transferred to the PROC statement. 



IF (#}a-cmd proc-stmt 

# (Not) specifies that the condition is true if the parameter 

indicated by the a-cmd does not exist in the active input 
buffer. If omitted, the condition is true if the parameter 
does exist in the active input buffer. 

a-cmd Valid A command (of the form A{p}) specifies the 

parameter to be tested. (Other forms of the A command 
are not meaningful.) 

proc-stmt Any valid PROC statement. 


When an A command is used in a test condition for an IF command, the 
parameter is not copied. Instead, the A command is used to specify 
which parameter in the input buffer is to be tested. Prior to the test, the 
input pointer is positioned to the beginning of the parameter specified by 
the A command. 

A parameter exists in the active input buffer if the input pointer points to 
a character. Note that in positioning the input pointer, intervening 
spaces will be skipped over. 

A parameter does not exist if the input pointer points to the end of the 
input buffer. 
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IF - Conditional Branch 


001 PQ 

002 C Reset input buffers to null 
003 RI 

004 C Copy data into input buffer 
005 IHABC AAA XYZ 

006 C If parameter exists control is transferred to 

007 C label 27 

008 IF A2 GO 27 

009 OA does not exist 

010 X 

Oil C Label 27; display message on terminal 
012 27 OA exists 

013 C If parameter does not exist, the PROC terminates 
014 IF #A4 XEND 

015 C If parameter does exist, the message is displayed 
016 OA4 exists 


Statement 


Primary input buffer 


Terminal 


IHABC AAA XYZ 


ABC AAA XYZ 


IF A2 GO 27 


ABC AAA XYZ 


A exists 


IF #A4 XEND 


ABC AAA XYZ 
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Relational 

Test 


Syntax 


Description 
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The relational form of the IF command compares data in the active input 
buffer with a specified string. 


IF{N} a-cmd 

op string proc-stmt 

N 

Specifies that a numeric comparison is to be made. If 
omitted, a string comparison is made. 

a-cmd 

Valid A command (of the form A{p} {,m}) specifies the 
parameter to be compared. (The AcandA{c}({n}{,m}) 
formats are not meaningful.) 

op 

Specifies the relation to compare for; the operator can be 
any of the relational operators listed in Table 2-1. 

string 

Specifies the literal string of characters or the number to 
which the specified parameter is to be compared. 

proc-stmt 

Any valid PROC statement. 


To resolve a string relational condition, character pairs (one from the 
selected parameter and one from the literal string) are compared one at a 
time from leftmost characters to rightmost. 

If no unequal character pairs are found, the strings are considered to be 
equal. If an unequal pair of characters is found, the characters are 
ranked according to their numeric ASCII code equivalents (refer to 
Appendix A, List of ASCII Codes). The character string contributing the 
higher numeric ASCII code equivalent is considered to be greater than the 
other string. For example, string AAB is considered to be greater than 
AAAA, and 02 is considered greater than 005. 

If the selected parameter and the literal string are not the same length, 
but the shorter of the two is otherwise identical to the beginning of the 
longer one, then the longer string is considered greater than the shorter 
string. For example, the string WXYZ is considered to be greater than 
the string WXY. 
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Numeric comparisons are in the range -2 48 to +2 48 -l. A leading + or - 
sign is handled, but decimal points are not. Numbers are terminated at 
the first non-numeric character or at the end of the parameter. For 
example, +35AD will compare equal to 035BC. 

To resolve a numeric relational condition (IFN form), the integer values 
of the selected parameter and the literal string are compared. For 
example, 102 is considered numerically less than 1005, whereas 102 
would be considered greater than 1005 in a string comparison. 
Non-numeric strings evaluate numerically to zero. 
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001 PQ 
002 RI 

003 IHABC XYZ 012 

004 C If parameter is equal to ABC, control is 
005 C transferred to label 3 
006 IF A = ABC GO 3 

007 C If parameter is not equal to ABC, message is 
008 C displayed and PROC is terminated 
009 ONot equal 
010 X 

Oil C Label 3/ display message 
012 3 OEqual 

013 C If parameter A3 is equal to 12, control is 
014 C transferred to label 100 
015 IFN A3 = 12 GO 100 

016 C If parameter A3 is not equal to 12, message is 
017 C displayed and PROC is terminated 
018 ONot equal 
019 X 


020 C Label 100; 

021 100 OEqual 

display message 


Statement 

Primary input buffer 

Terminal 

IHABC XYZ 012 

ABC_XY Z_012 

t 


IF A = ABC GO 3 

ABC_XYZ_012 

t 

Equal 

IFN A3 = 12 GO 100 ABC_XYZ_012 

t 

Equal 
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IF - Conditional Branch 


Pattern Match 
Test 

Syntax 


Description 


The pattern matching form of the IF command compares a parameter in 
an input buffer with a specified pattern. 


IF a-cmd op (pattern) proc-stmt 


a-cmd 

Valid A command (of the form A{p) {,m}) specifies the 
parameter to be tested. (The Ac and A{c}({n}{,m}) 
formats are not meaningful.) 

op 

Specifies the relation to compare for. Although the 
operator can be any of the relational operators listed in 
Table 2-1, only = and # are meaningful. 

(pattern) 

Pattern used to test a parameter for a specified 
combination of numeric characters, alphabetic characters, 
alphanumeric characters, or literals; see Table 2-2. 

proc-stmt 

Any valid PROC statement. 


A pattern is composed of one or more pattern elements concatenated 
together. If a pattern is composed of the single element OA or ON, the 
test is true only if all the characters in the parameter conform to the 
character type. For example, the following statement outputs the 
message -OK- if the characters of the current parameter are all alphabetic 
characters: 

IF A = (OA) O-OK- 

If another pattern follows a OA or ON pattern, that pattern is used in the 
match as soon as a character is encountered that does not match the OA 
or ON pattern. 
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2-36 


Table 2-2. Patterns 


Pattern 

Element 

Explanation 

nN 

tests for n numeric characters. 

nA 

tests for n alphabetic characters. 

nX 

tests for n characters of any type. 

string 

tests for literal string of characters; delimiter is not 

'string' 

required, but can be single or double quotes. Use of 

"string" 

quote marks is useful in cases where the literal 
would otherwise look like a pattern element. If 
quotes are used, embedded blanks will not work 
because pattern matches stop on the first blank 
encountered. If quotes are not used, blanks will 
work. 


If the integer value used in the nX form of the IF command is 0 (zero), 
the command will evaluate any number of characters of any type until 
encountering a blank or the end of the input buffer; if a pattern, other 
than Oa, On, or Ox, is appended to Ox, the match returns false. For 
example, the following statement outputs CORRECT if the characters of 
the current parameter are one character of any type followed by a - 
(hyphen) and then followed by any number of characters of any type: 

IF A = (1X-0X) 0 CORRECT 

However, if the lx in the above statement is replaced by a Ox, it will not 
output CORRECT because the command will evaluate the current 
parameter as one string (that is, it will evaluate any number of characters 
of any type until encountering a blank or a right parenthesis) and then go 
back to the current parameter and look for a - (hyphen). However, the 
- (hyphen) will not be found because it has already been evaluated by 
the first Ox. 
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The following example outputs to the terminal EQUAL or NOT EQUAL 
based on the pattern match. 


001 PQ 
002 RI 

003 IHABC 10/09/91 

004 C If the first parameter is three alpha characters, 
005 C then branch to label 7 
006 IF A = (3A) GO 7 

007 C If the first parameter is not equal to three 

008 C alpha characters, a message is displayed and PROC 

009 C is terminated 

010 ONot equal 

011 X 

012 C Label 7; display message to terminal 
013 7 OEqual 

014 C If the second parameter is in the specified form, 
015 C then branch to label 5 
016 IF A2 = (2N/2N/2N) GO 5 

017 C If the second parameter is not in the specified 
018 C form, a message is displayed and PROC is terminated 
019 ONot equal 
020 X 

021 5 C Label 5; display message 
022 OEqual 

Statement Primary input buffer 

IHABC 10/09/91 ABC_10/09/91 

t 

IF A = (3A) GO 7 ABC_10/09/91 

t 

IF A2 = (2N/2N/2N) G 5 

ABC_10/09/91 

t 


Terminal 


Equal 


Equal 
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PROC Commands 


The next example outputs to the terminal OK if the user inputs a string in 
the pattern of four characters, followed by a hyphen, followed by 0 
(zero) or more characters. 


STRING.EXAMPLE 
001 PQ 

002 O Enter a string to test 

003 C If the string entered starts with four characters 
004 C followed by a hyphen, then branch to label 10 
005 IP? 

006 IF A = (4X , - , 0X) GO 10 

007 C If the string is not in the specified form, 

008 C message is displayed and PROC is terminated 
009 O DOESN'T WORK 
010 X 

011 10 C Label 10; display OK to terminal 
012 OOK 

Output to terminal 

:STRING.EXAMPLEJ 

Enter a string to test 7ABCD-EFJ 
OK 
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IF - Conditional Branch 


System 
Message Test 

Syntax 


Description 


The system message testing form of the IF command is used to test for 
system messages generated by a preceding PROC-generated TCL 
statement. 


IF{N} E op string proc-stmt 


N 

op 

string 


(IFN) specifies that a numeric comparison is to be made. 
If omitted, a string comparison is made. 

Specifies the relation to compare for; the operator can be 
any of the relational operators listed in Table 2-1. 

System message identifier; that is, item-lD of a system 
message in the ERRMSG file. 


proc-stmt Any valid PROC command. 


The IF E command allows a PROC to test for a system message identifier 
returned by a PROC-generated TCL statement. This command is relevant 
only after any form of the P command except for the PX form. 

Note: When control is passed to TCL via a PX command, the PROC 

terminates after the TCL statement has been executed (see the P 
command listed alphabetically in this chapter). 

Any message generated by processing the TCL statement is reported by 
placing the identifier of that system message in the secondary input 
buffer. Since the IF E command uses the secondary input buffer, it is 
valid until a command using the secondary input buffer is executed. 

The command tests for the identifier of the system message. 

The following example shows a numeric comparison. If a message 
identifier in the range of 92 through 98 has been encountered, control 
transfers to TCL and the text is printed. 

015 IFN E > 91 IFN E < 99 X TAPE ERROR! 

If system message number 82 has been encountered in the following 
command, control transfers to TCL and the text NO ACCESS is printed 
(user has insufficient level). 

IF E = 82 X NO ACCESS 
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PROC Commands 


Select-List 

Test 


Syntax 


Description 


The select-list form of the IF command tests for the existence of a 
select-list generated by a preceding SELECT, SSELECT, QSELECT or 
GET-LIST statement. This test can be used to prevent processing a 
non-existent select-list. 


IF (#}S proc-stmt 

# Specifies that the condition is true if a select-list is not 

available. 

proc-stmt Any valid PROC command. 


If a result such as NO ITEMS PRESENT or ITEM NOT ON FILE has 
occurred, the select-list will not exist, and the IF S command can be used 
to test for this condition. 

Certain system commands create select-lists; some of these select-list 
system commands are SELECT, SSELECT, QSELECT and GET-LIST. (For 
more information about select-lists, see the specific command in the 
Ultimate System Commands Guide or the Ultimate RECALL and 
Ultimate UPDATE User Guide.) 

A PROC can be written such that: 

• it expects the user to execute one of the select-list system commands 
prior to executing the PROC 

• it can be called from several other PROCs, some of which that execute 
select-list system commands prior to the call and some of which may 
not 

• it executes a select-list system command with the secondary output 
buffer containing only a carriage return (that is, a H< statement) 

The PROC can then use the IF S command to determine if anything was 
selected before continuing execution. 
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In the following example, the PROCs TESTl and TEST2 operate 
identically if the GET-LIST statement executes without an error (that is, if 
the list exists on file). However, TEST2 continues with PROC execution 
even if the list is not on file. An IF S test would be meaningless 
following the P command in TEST2, since no select-list will exist at that 
point regardless of whether the GET-LIST was successful. TESTl, on the 
other hand, has a null line in the secondary output buffer when the 
GET-LIST executes; therefore, control is returned to the PROC, which can 
test to see if it successfully retrieved a select-list. If the list is not on 
file, the PROC requests the user to enter the list name and tries again. 


TESTl 
001 PQ 

002 10 HGET-LIST 
003 OEnter list-name+ 

004 IP? 

005 A 
006 STON 
007 H< 

008 PH 

009 IF S G 20 

010 OILLEGAL LIST-NAME. 

Oil OPLEASE RE-ENTER 
012 G 10 

013 20 HLIST INVENTORY LPTR 
014 P 


TEST2 
001 PQ 

002 HGET-LIST 

003 OEnter list-name+ 

004 IP? 

005 A 
006 STON 

007 HLIST INVENTORY LPTR 
008 P 
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IH - Copy Data to Input Buffer 

The IH command copies specified data to the active input buffer. 


Syntax iH{data} 

data Specifies the data to be copied to the active input buffer; 

it can contain any characters, including blanks. If 
omitted, no operation is performed. 


Description The IH command causes the specified data to replace the current 
parameter in the active input buffer. 

Note: The current parameter of an active buffer is the data from the 

current position of the pointer to the end of the parameter. If 
the pointer does not point at the first character of data delimited 
by blanks, the characters prior to the pointer are not copied. 

The input buffer pointer location is not changed. If the specified data is 
omitted, no operation is performed. 
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IH - Copy Data to Input Buffer 


001 

PQ 


002 

RI 


003 

C AAA BBB CCC is copied into the input buffer 

004 

IHAAA BBB CCC 


005 

C Move pointer to 

BBB. 

006 

F 


007 

C XX YY is copied 

into the input buffer 

008 

C and replaces BBB. 

009 

IHXX YY 


Statement 

Primary input buffer 

IHAAA BBB CCC 

AAA_B B B_C C C 



t 

F 


AAA_B B B_C C C 



t 

IHXX YY 

AAA_XX_YY_CCC 



+ 
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PROC Commands 


IN - Terminal 


Syntax 


Description 


Input to Secondary Input Buffer 

The IN command selects the secondary input buffer and accepts data 

input from the terminal and puts it into the input buffer. 

lN{r} 

r Specifies a prompt character to be displayed at the 

terminal for operator input; it can be any character, 
including a blank. The prompt character remains in 
effect until another IN, IP, or IS command with a different 
prompt character is executed or a () (transfer control) or 
[] (subroutine call) is executed. If omitted, the 
previously specified prompt character, if any, is used. If 
no prompt character has been specified previously, a 
colon (:) is used as the prompt character. 


The IN command replaces all data in the secondary input buffer with the 
new data input from the terminal. The input pointer location is left 
pointing at the beginning of the data that was input. 

Data input by this command can then be copied to the active output 
buffer by an A command. (See the A command listed alphabetically in 
this chapter.) 

The IS command can also be used to accept data input from the terminal. 
The IS command is a synonym for the IN command. 
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IN - Terminal Input to Secondary Input Buffer 


IN.EXAMPLE 
001 PQ 

002 OInput a letter of the alphabet* 

003 C Data is accepted from the terminal and put in the 
004 C secondary input buffer 
005 IN= 

006 C If input is an alpha character, control transfers 
007 C to label 9 


008 IF A 


(1A) GO 9 


009 Xlllegal Response 

010 C Label 9; message is displayed 

011 9 OYou entered correctly 


Output to terminal 

:IN.EXAMP LEJ 


Input a letter of the alphabet=EJ 
You entered correctly 
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PROC Commands 


IP - Terminal Input to Active Input Buffer 

The IP command accepts data input from the terminal and inserts it into 
the active input buffer. 


Syntax iP{B}{r> 

B Replaces all blanks input at the terminal with backslashes 

(\). 

r Specifies a prompt character to be displayed at the 

terminal for operator input; it can be any character, 
including a blank. The prompt character remains in 
effect until another IN, IP, or IS command with a different 
prompt character is executed or a () (transfer control) or 
[] (subroutine call) is executed. If omitted, the 
previously specified prompt character, if any, is used. If 
no prompt character has been specified previously, a 
colon (:) is used as the prompt character. 


Description The data input from the terminal replaces the current parameter in the 
active input buffer. 

Note: The current parameter of an active buffer is the data from the 

current position of the pointer to the end of the parameter. If 
the pointer does not point at the first character of data delimited 
by blanks, the characters prior to the pointer are not replaced. 

If several parameters are input at the terminal, they only replace the 
current parameter in the buffer. If the input pointer is at the end of the 
data, the new input data is appended after the last parameter. 

The input pointer location is not changed; it remains pointing at the 
beginning of the data that was input. 

Data input by the IP command can then be copied to the output buffer by 
an A command. (See the A command listed alphabetically in this 
chapter.) 
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IP - Terminal Input to Active Input Buffer 


001 PQ 

002 IHAAA BBB CCC 

003 A2,1 

004 IP 

005 F 

006 F 

007 IP= 


User is 

User 


prompted 

responds 

Primary 

Statement with 

with 

input buffer 

IHAAA BBB CCC 


AAA_BBB_CCC 



+ 

A2,1 


AAA_BBB_CCC 



t 

IP : 

XX YYJ 

AAA_BXX_YY_ CC C 



t 

F 


AAA_ B XX_YY_ CCC 




F 


AAA_BXX_YY_CCC 



t 

IP = 

ZZJ 

AAA BXX YY ZZ 


t 
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IS - Terminal Input to Secondary Input Buffer 

The IS command is a synonym for the IN command. Refer to the IN 
command in this chapter for complete information. 
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IT - Tape Input to Primary Input Buffer 


IT - Tape Input to Primary Input Buffer 

The IT command inputs the next tape label from the currently attached 
tape unit. 


Syntax it 


Description The IT command clears the input buffers, reads the current tape label 
from the attached tape unit, stores it in the primary input buffer, and 
positions the input pointer at the beginning of the tape label. Thus, any 
data placed in the primary input buffer after the IT command will be 
placed at the beginning of the input buffer unless the input pointer is 
positioned at a specified location. 

Note: Any data in the input buffers prior to the IT command will be 
lost. 

Data input by the IT command can then be copied to the output buffer by 
an A command (see the A command listed alphabetically in this chapter) 
or it can be tested with an IF command. 

The program below will T-FWD a tape, read the label with the IT 
command, check to see if it is the file you are looking for using an IF 
command; if it is the file specified, the file is T-LOADed; otherwise, the 
tape is T-FWDed to the next file and the check is repeated. 


IT.TEST 
001 PQ 
002 HT-REW 
003 P 
004 10 IT 
005 DO 

006 IF A(30) # DOCUMENT G 20 
007 HT-LOAD DOCUMENT (O 
008 P 
009 X 

010 20 HT-FWD 
011 P 
012 G 10 
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PROC Commands 


O - Output Text 

The 0 command displays specified text to the terminal. 


Syntax o{text}{+} 

text Specifies the text to output. A carriage return is 

appended to the text unless the + parameter is present. 

+ Suppresses the carriage return so that the cursor does not 

move to the next line after the text is displayed. This 
feature is useful when the O command is used in 
conjunction with an input (IP, IN, or IS) command. 


Description The O command is useful to prompt the user for input from the terminal. 
The O command has no effect on the buffers. 


001 PQ 

002 C Output text to terminal 
003 OPart-Number-f 

004 C Data is accepted from the terminal 
005 IS= 

Output to terminal 

Part-Number= 
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P - Execute Primary Output Buffer 


P - Execute Primary Output Buffer 

The P command executes the command string in the primary output 
buffer. 


Syntax p{c} 

c Specifies alternative actions associated with the PROC 

execution. One of the following can be specified: 

H Hushes (suppresses) output to the terminal. 

P Displays the content of the output buffers before 

execution. 

W Displays the content of the output buffers and 
waits for user response. The user can enter the 
following options at the prompt: 

N PROC execution is aborted and the system 
exits to TCL. 

S PROC execution continues at the 
command following PW. 

X PROC execution is aborted and the system 
exits to TCL. 

Any other character causes PROC action to 
continue. 

X Terminates PROC control after execution. 

Note: If the argument c is omitted, no alternative 
action is taken. 
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PROC Commands 


Description 


The P command submits the contents of the primary output buffer to 
TCL for processing. 

The secondary output buffer can be used to feed interactive processors 
such as BASIC or the line Editor; or the secondary output buffer can 
contain another TCL statement if the primary output buffer contains 
SELECT, SSELECT, QSELECT, or GET-LIST. If the secondary output 
buffer contains data but the last character of the last line is not a carriage 
return (<), the P command places a carriage return character at the end of 
the secondary output buffer. 

After execution of a P command, if the statement executed from the 
primary output buffer was a PROC, at the conclusion of that statement, 
control is returned to TCL, not to the current PROC. To return to the 
current PROC after executing another PROC, use the [] command to 
execute the other PROC. 

After execution of a P command (except for PX), if the statement 
executed was a statement other than a PROC, the current PROC regains 
control at the statement immediately following the P command. The 
primary input buffer is selected as the active input buffer, and the input 
pointer is positioned to the beginning of the buffer on return of control 
to the PROC from TCL. The secondary input buffer and both output 
buffers are cleared. Data in the primary input buffer is not cleared. 

An automatic P command is executed if the following two conditions are 
met: 

• the last line of the PROC is reached and it is not an X command 

♦ the primary output buffer contains data 

The PW form of the P command operates the same as the PP command, 
except after the buffer contents are displayed, the system displays a 
question mark (?) prompt character and waits for terminal input. PW is 
normally used as a debugging tool and can be replaced by P once the 
user has determined that the PROC is functioning properly. 

Note: Any system message identifier returned by the system 

command is placed in the secondary input buffer and can be 
tested with the IF E command. (For system message checking 
procedures, see the IF E command listed alphabetically in this 
chapter.) 
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P - Execute Primary Output Buffer 


001 PQ 
002 RI 

003 C The DATE command is copied in the input buffer 
004 IHDATE 

005 C The WHO command is copied in the output buffer 
006 HWHO 

007 C The output buffer is executed 
008 P 

009 C PROC regains control and copies the DATE command 
010 C to the output buffer 
011 A 

012 C The output buffer is automatically executed 

Output to terminal 

13 SUSAN 

11:27:23 06 MAY 1992 
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PROC Commands 


RI - Clear Input Buffers 

The RI command clears the input buffers to null, resets the input 
pointers, and selects the primary input buffer as the active input buffer. 


Syntax Ri{p} 

p Specifies the parameter in the primary input buffer at 

which to start clearing. The primary input buffer is 
cleared from the pth parameter to the end of the buffer. 
If p is omitted, the primary input buffer is cleared from 
the beginning of the buffer. The secondary input buffer 
is always cleared from the beginning of the buffer to the 
end. 


Description After clearing the input buffers to null, RI selects the primary input 

buffer as the active input buffer and the input pointer is positioned at the 
pth parameter if specified; if p is not specified, the input pointer is at the 
beginning of the buffer. 
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RI - Clear Input Buffers 


001 PQ 

002 RI 

003 IHABC DEF GHI JKL 

004 SS 

005 IHXX YY 

006 C Clear to the end 

007 C parameter 3 

008 RI3 

of the buffer starting with 

Statement 

Primary 
input buffer 

Secondary 
input buffer 

RI 

t 


IHABC DEF GHI JKL 

ABC_DEF_GHI_JKL 

t 


SS 

ABC_DEF_GHI_JKL 

t 

IHXX YY 

ABC_DEF_GHI_JKL 

XX_YY 

t 

RI 3 

ABC_DEF 

t 
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PROC Commands 


RO - Clear Output Buffers 

The RO command clears the output buffers to null, selects the primary 
output buffer as the active output buffer, and sets the output pointer to 
the beginning of the buffer. 


Syntax ro 

Description The RO command clears both output buffers to the empty (null) 

condition, selects the primary output buffer, and sets the output pointer 
to the beginning of the buffer. 

The RO command has no effect on the input buffer. 


001 PQ 

002 HABC DEF GHI JKL 
003 STON 
004 HXXX YYY 

005 C Clear the output buffer 
006 RO 


Statement 

HABC DEF GHI JKL 

STON 

HXXX YYY 

RO 


Primary 
output buffer 

ABC_DEF_GHI_JKL 

t 

ABC DEF GHI JKL 


t 


Secondary 
output buffer 


t 

XXX_YYY 

t 


2-56 


Ultimate PROC Reference Guide 

Confidential and Proprietary to The Ultimate Corp. 


6936-3 



S(m) - Position Primary Input Pointer 


S(m) - Position Primary Input Pointer 

The S(m) command positions the input pointer at a specified column 
position in the primary input buffer. 


Syntax s(m) 

m Specifies the column position m at which the input 

pointer is to be placed. 


Description The S(m) command selects the primary input buffer, and positions the 
input pointer to column position m. If there are fewer than m column 
positions in the primary input buffer, the input pointer is set to the end 
of the buffer. 

The S(m) command has no effect on the data content of either input 
buffer. 


001 PQ 
002 RI 

003 IHABC DE FGHIJ 
004 SS 
005 IHXX YY 
006 F 

007 C Move pointer to column position 2 
008 S(2) 



Primary 

Secondary 

Statement 

input buffer 

input buffer 

IHABC DE FGHIJ 

ABC_DE_FGHIJ 

t 


SS 

ABC_DE_FGHIJ 

t 

IHXX YY 

ABC_DE_FGHIJ 

XX_YY 

t 

F 

ABC_DE_FGH IJ 

XX_YY 

t 

S(2) 

ABC DE FGHIJ 
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PROC Commands 


Sn - Position Active Input Pointer 

The Sn command positions the input pointer at a specified parameter in 
the active input buffer. 


Syntax sn 

n Specifies the ordinal number of the parameter at which 

the input pointer is to be placed. If n is zero (SO) or one 
(Si), the pointer is set at the beginning of the buffer. 

The parameters are assumed to be separated by blanks or 
enclosed in single quotes. If there is no nth parameter, 
the pointer is set to the end of the input buffer. 


Description The Sn command positions the input pointer in the active input buffer at 
the specified parameter. 

The Sn command has no effect on the data content of either input buffer. 


001 

PQ 



002 

RI 



003 

IHABC DE FGHIJ 



004 

C Move pointer 

to 

third parameter 

005 

S3 



006 

C Move pointer 

to 

the end of the buffer because a 

007 

C fifth parameter 

is not present 

008 

S5 



Statement 


( 

Primary input buffer 

IHABC DE FGHIJ 


ABC_DE_FGHIJ 




t 

S3 



ABC_DE_FGHIJ 




t 

S5 



ABC_DE_FGHIJ 




t 
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SP - Select Primary Input Buffer 


SP - Select Primary Input Buffer 

The SP command selects the primary input buffer as the active input 
buffer. 


Syntax sp 

Description Only one of the two input buffers can be active. Upon initial entry to a 
PROC, the primary input buffer is active. 

The SP command selects the primary input buffer to be active, and sets 
the input pointer to the beginning of the buffer. The primary input 
buffer can be selected as active at any point within a PROC. 

The SP command has no effect on the data content of either input buffer. 
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PROC Commands 


SS - Select Secondary Input Buffer 

The SS command selects the secondary input buffer as the active input 
buffer. 


Syntax ss 


Description Only one of the two input buffers can be active. Upon initial entry to a 
PROC, the primary input buffer is active. 

The SS command selects the secondary input buffer to be active, and 
sets the input pointer to the beginning of the buffer. The secondary 
input buffer can be selected as active at any point within a PROC. 

The SS command has no effect on the data content of either input buffer. 
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STOFF - Select Primary Output Buffer 

The STOFF command selects the primary output buffer as the active 
output buffer. 


Syntax stoff 

Description Only one of the two output buffers can be active. Upon initial entry to a 
PROC, the primary output buffer is active. 

The STOFF (STack OFF) command selects the primary output buffer as 
the active output buffer and sets the output pointer to the end of the 
buffer. The primary output buffer can be selected as active at any point 
within a PROC. 

The STOFF command has no effect on the data content of either output 
buffer. 
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PROC Commands 


STON - Select Secondary Output Buffer 

The STON command selects the secondary output buffer as the active 
output buffer. 


Syntax ston 

Description Only one of the two output buffers can be active. Upon initial entry to a 
PROC, the primary output buffer is active. 

The STON (STack ON) command selects the secondary output buffer as 
the active output buffer and sets the output pointer to the end of the 
buffer. The secondary output buffer can be selected as active at any 
point within a PROC. 

The STON command has no effect on the data content of either output 
buffer. 


STON.TST 
001 PQ 

002 C Selects a list and puts it in the primary output 
003 C buffer 

004 HSELECT MD WITH 1 = "9 M 

005 C Secondary output buffer is active 

006 STON 

007 C Save the list to the secondary output buffer. If 
008 C a list is not present, a system message will be 
009 C placed in the buffer 
010 HSAVE-LIST ITEMS 

:STON.TSTJ 

[401] No items present. 
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T - Terminal Control 


T - Terminal Control 

The T command is used to specify cursor positioning and visual 
attributes, to output literals, or to output non-keyable character codes. 
The cursor functions are terminal independent; special terminal function 
codes are available. 


Syntax t ..}}}}{,} 

f can be any of the following: 

"text" Causes the literal text to be output at the current position. 

B Causes a bell code to be output. 

C Causes a clear screen code to be output. 

Inn Displays the ASCII character whose decimal value is nn. 

Xxx Displays the ASCII character whose hexadecimal value is 

xx. 

(c {,r}) Causes the terminal cursor to position to column c, row r 

(if r is present). If only c is present, the cursor is 
positioned to column c of the current row on terminals 
with column-only addressing. However, since not all 
terminals support this addressing mode, its use is not 
recommended. 

(-n) Generates a cursor control function as shown in Table 

2-3. The terminal must support this function. 

, Allows continuation of the command to multiple lines. 


Description Columns and rows on the terminal screen are numbered starting with 

zero (0), left to right and top to bottom. For example, (0,0) is the upper 
left comer of the terminal screen. Users can create formatted screens in 
PROCs with the T command. 

The cursor is left where the T command positions it (that is, a carriage 
return or line feed is not automatically output at the end of the T 
command). 
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There must be a blank separating the T command and the first function 
code. Comments can be placed immediately after any argument. For 
example, the following two statements are equivalent: 

T C 

T CLEAR 

Comments cannot contain commas since the comma is used to terminate 
the comment. Another restriction exists with the Inn and Xxx 
arguments; a comment cannot start with a character that would be 
interpreted as a decimal or hexadecimal digit, respectively. Starting a 
comment with a blank is an easy way to ensure this. 

The T command generates terminal control codes based on the current 
terminal type for the line on which the PROC is executing. The terminal 
type is determined by the following: 

• most recent TERM or TERM-INIT command executed for the line 

• a TERM type logon parameter set up in DICT ACC for the line 

• the system-wide default terminal type, which setup by the SET-TERM 
command 

For more information on these commands, please refer to the Ultimate 
System Commands Guide. 

It is recommended that the programmer employ the terminal independent 
(-n) function codes instead of hard coding these functions for a single 
terminal type. See Table 2-3 for the available codes. Note that these 
codes are the same as those for the BASIC @ Function (see the @ 
Function in the Ultimate BASIC Language Reference Guide)-, although all 
can be specified, some codes are intended primarily for use in BASIC 
and do not have much value in PROC, specifically true for codes (-46) 
through (-51). 
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T - Terminal Control 


Table 2-3. Cursor Control Values (1 of 5) 


Code 

Description 

(-1) 

Clear the screen and positions the cursor at 'home' 
(upper left comer of the screen). 

(-2) 

Position the cursor at 'home' (upper left comer). 

(-3) 

Clear from cursor position to the end of the screen 

(-4) 

Clear from cursor position to the end of the line 

(-5) 

Start blink 

(-6) 

Stop blink 

(-7) 

Start low intensity 

(-8) 

Stop low intensity 

(-9) 

Backspace the cursor one character 

(-10) 

Move the cursor up one line 

(-11) 

Move the cursor down one line 

(-12) 

Move the cursor right one column 

(-13) 

Enable auxiliary (slave) port 

(-14) 

Disable auxiliary (slave) port 

(-15) 

Enable auxiliary (slave) port in transparent mode 

(-16) 

Initiate slave local print 

(-17) 

Start underline 

(-18) 

Stop underline 

(-19)* 

Start reverse video 

(-20) 

Stop reverse video 

(-21) 

Delete line 

(-22) 

Insert line 
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Table 2-3. Cursor Control Values (2 of 5) 


Code 


Description 


(-23) 
(-24) 
(-25) 
(-26) 
(-27) 
(-28) 
(-29) 
(-30,c) 


Scroll screen display up one line 

Start boldface type 

Stop boldface type 

Delete one character 

Insert one blank character 

Start insert character mode 

Stop insert character mode 

Set foreground and background color: 


c 

background 

foreground 

1 

black 

cyan 

2 

black 

red 

3 

black 

blue 

4 

black 

green 

5 

black 

magenta 

6 

black 

yellow 

7 

black 

white 

8 

blue 

red 

9 

blue 

green 

10 

blue 

white 

11 

blue 

yellow 

12 

blue 

red 

13 

blue 

cyan 

14 

blue 

magenta 

15 

white 

red 

16 

white 

green 

17 

white 

blue 

18 

white 

cyan 

19 

white 

magenta 

20 

white 

black 

21 

red 

white 

22 

red 

green 
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T - Terminal Control 


Table 2-3. Cursor Control Values (3 of 5) 


Code 


Description 


(-31 ,f) Set foreground color: 

f foreground 

1 brown 

2 white 


(can vary on some 
terminals) 


magenta 

yellow 

green 


(-32,b) Set background color: 

b background 

1 brown 

2 white 

3 black 

4 red 


6 cyan 

7 magenta 

Set 80 columns 
Set 132 columns 
Set 24 rows 
Set 44 rows 


(-37M45) Reserved 


6936-3 


Ultimate PROC Reference Guide 

Confidential and Proprietary to The Ultimate Corp. 


2-6 





PROC Commands 


2-68 


Table 2-3. Cursor Control Values (4 of 5) 


Code 

Description 

(-46) 

Returns function key default values; intended for 
BASIC 

(-47) 

Returns character sequence needed to set the overall 
characteristics for the label line (bottom line of 
terminal); intended for BASIC 

(-48) 

Returns character sequence needed to set the overall 
characteristics for the status line (top line of 
terminal); intended for BASIC 

(-49) 

Returns string that defines the graphic character 
codes for the current terminal; intended for BASIC 

(-50) 

Start graphics; intended for BASIC 

(-51) 

Stop graphics; intended for BASIC 

(-52) 

Start blink 

(-53) 

Stop blink 

(-54) 

Start reverse video 

(-55) 

Stop reverse video 

(-56) 

Start reverse video and blink 

(-57) 

Stop reverse video and blink 

(-58) 

Start underline 

(-59) 

Stop underline 

(-60) 

Start underline and blink 

(-61) 

Stop underline and blink 

(-62) 

Start underline and reverse video 

(-63) 

Stop underline and reverse video 
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Table 2-3. Cursor Control Values (5 of 5) 


Code 

Description 

(-64) 

Start underline, reverse video, and blink 

(-65) 

Stop underline, reverse video, and blink 

(-66) 

Start dim 

(-67) 

Stop dim 

(-68) 

Start dim and blink 

(-69) 

Stop dim and blink 

(-70) 

Start dim and reverse video 

(-71) 

Stop dim and reverse video 

(-72) 

Start dim, reverse video, and blink 

(-73) 

Stop dim, reverse video, and blink 

(-74) 

Start dim and underline 

(-75) 

Stop dim and underline 

(-76) 

Start dim, underline, and blink 

(-77) 

Stop dim, underline, and blink 

(-78) 

Start dim, reverse video, and underline 

(-79) 

Stop dim, reverse video, and underline 

(-80) 

Set 80 columns 

(-81) 

Reserved 

(-82) 

Set 132 columns 
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T C,B, (10,5),"TITLE" 

This sequence first clears the screen, 
outputs a bell code to the terminal, 
positions to column 10 row 5, and 
displays the text TITLE. 

T (0,8) , (-4) 

This sequence positions the cursor at 
column 0 row 8, and clears the entire 
line assuming that the terminal used 
supports that function. 

T (-5),"twinkle", (-6) 

This sequence starts a blinking field, 
prints the word twinkle, and ends the 
blinking field. This assumes the 
terminal supports blinking. 

T CLEAR,"TITLE", 

(5,5) Comment,"TEXT" 

This sequence continues over a 
line boundary and inserts a comment in 
the line. 
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X - PROC Termination 


X - PROC Termination 

The X command terminates execution of a PROC, with the optional 
display of text and returns control to TCL, to the calling PROC, or to the 
BASIC program that invoked this PROC with an EXECUTE statement. 


Syntax x{text}{+} 

text Contains a message to be displayed on the terminal when 

the PROC is terminated. 

+ Can be appended to the text to suppress the carriage 

return and line feed that is normally appended to text 
displayed on the terminal. If you return to a calling 
PROC, the cursor remains at the character position after 
the last character in the message. If you exit to TCL, the 
cursor goes to the next line, but the blank line between 
the text and the TCL prompt is suppressed. 


Description PROC control is terminated after the final PROC command has been 

executed. Therefore, the X command is not needed in this case. The X 
command is intended as a method of terminating a PROC at an 
intermediate point. 

If the PROC was invoked from the TCL level, it exits to TCL. If the 
PROC was called as a subroutine, the X command causes a return to the 
calling PROC and continuation at the next command in that PROC. 

If control passes to a TCL level that was active due to an EXECUTE 
statement in a BASIC program, control then passes back to the BASIC 
program. (See the BASIC Language Reference Guide for more details.) 
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X 

PROC terminates and returns to TCL or 
to the calling PROC. 

X***EXIT TO TCL** 

Same as above; in addition, a message 
is printed with a carriage return and a 
line feed appended. 

XHURRY BACK+ 

Same as above; however, a message is 
printed without a carriage return or a 
line feed appended. 
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Programmers 


6936-3 


This chapter contains PROCs that perform the following functions: 

• File updating 

• Tape positioning 

• Running a BASIC program 

• Using SSELECT and COPY commands 

• Reading a tape file 

• Using two operator inputs in one command 

• Printing a mailing list 

• Displaying main menu for job selection 
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File Updating 


The following example shows a line editor operation which changes 
attribute 3 of item 11115 in file ACCOUNT to 101 AVOCADO. The item 
and the file must already exist. 


: EDIT ACCOUNT 11115J 


Top 

. G3 J 

003 100 AVOCADO 

.R/100/101J 

003 101 AVOCADO 

.FI 

'11115' filed 


Go to line 3 

Displays line 3 

Replace 100 with 101 

New replacement line 

Saves item using the same name 


The following PROC named CHANGE performs the identical operation as 
the above example. It is written in such a manner that it updates any 
specified attribute in any specified item in any specified file. 


CHANGE 

Explanation 

001 PQ 

PROC code. 

002 HED 

System command to output buffer. 

003 A2 

2nd parameter to output buffer. 

004 A3 

3rd parameter to output buffer. 

005 STON 

Secondary output buffer active. 

006 HG 

'G' to output buffer 

007 A4 

4th parameter to output buffer. 

008 H< 

Carriage return to output buffer. 

009 HR/ 

'R' and / to output buffer. 

010 A5 

5th parameter to output buffer. 

011 H/ 

/ to output buffer. 

012 A6 

6th parameter to output buffer. 

013 H< 

Carriage return output buffer. 

014 HFI 

'FI' to output buffer. 

015 PP 

Display and execute PROC. 
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File Updating 


:CHANGE ACCOUNT 11115 3 100 101J 

Output to terminal 

EDIT ACCOUNT 11115 
G3 

R/100/101_ 

FI 

Top 

003 100 AVOCADO 
003 101 AVOCADO 
'11115' filed. 
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Reference for PROC Programmers 


Tape Positioning 

The following PROC named TAPE-FWD positions a tape. This PROC 
illustrates the use of numeric labels for transfer of PROC control via the 
GO command. It also uses the arithmetic commands, + and 

To execute this PROC from the TCL level, enter the following: 
TAPE-FWD or TAPE-FWD n 

where n is the number of files to be spaced over. If n is omitted or 
non-numeric, the PROC prompts for NO. OF FILES. 

During execution, the active input buffer contains: 

TAPE-FWD_n_xx 

where: 

n is the number of files left to be spaced over. 

xx is the count of such files already spaced over, 

initialized to 000 at line 5 of the sample PROC. 

The PROC attaches tape unit 0 (T-ATT). On multi-drive systems, if unit 
0 is not the desired unit, the desired tape unit must already be attached. 
If the tape drive is already attached to another line (error 95 on line 8 of 
the sample PROC), the PROC terminates execution. 

The PROC then does a T-RDLBL to read the tape label and print it on the 
terminal; if an end-of-file (EOF) error (this is error 94 on line 12) occurs 
on this statement, the end of tape data has been reached; the message 
End of recorded data (on line 23) is printed, along with the file-count 
from parameter 3. 

If T-RDLBL executes successfully, the tape file is spaced over by 
executing a T-FWD. This is repeated until parameter 2 goes to 0. 

Note: The 1FN command is used to test for a value of zero regardless 
of the number ofO digits in the parameter. Alternatively, 
multiple tests could be used to test for 0, 00, or 000, since the 
- command doesn't change the parameter size. 
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Explanation 


Don't accept non-numeric data. 

Position pointer at 3rd parameter. 
Initialize 3rd parameter to 0. 

System command to output buffer. 

Test for tape attached to another line; if 
so, exit. 

If 2nd parameter is 0, exit. 

Copy system command to output buffer. 

Test for End of file; if so, go to label 9. 
System command to output buffer. 

Position pointer at 3rd parameter. 
Increment parameter by 1. 

Position pointer at 2nd parameter. 
Decrement parameter by 1. 

Go to 2 (continue PROC). 


data - (+ 

Display 3rd parameter. 
Display text and exit PROC. 


TAPE-FWD 


001 

PQ 


002 

4 IF #A2 G 

; 3 

003 

IF A2 # (ON) 

004 

S3 


005 

IH000 


006 

HT-ATT 


007 

P 


008 

IF E = 95 

X 

009 

IFN A = 0 

X 

010 

2 HT-RDLBL 

Oil 

P 


012 

IF E = 94 

G 

013 

HT-FWD 


014 

P 


015 

S3 


016 

+ 1 


017 

S2 


018 

-1 


019 

G 2 


020 

3 ONo. of 

fi 

021 

IP? 


022 

G 4 


023 

9 OEnd of 

re 

024 

D3+ 


025 

X FILES) 
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Running a BASIC Program 

The following PROC named RUN.BP puts two lines of data in the 
secondary output buffer and runs a BASIC program named INPUTTER. 
Both data lines are terminated with a carriage return; the second < is 
optional (that is, if the explicit carriage return, <, were omitted, PROC 
would automatically append one to the end of the secondary output 
buffer). 

RUN.BP 

001 PQ 

002 HRUN BP INPUTTER 
003 STON 
004 H100< 

005 H200< 

006 PP 

The following BASIC program named INPUTTER expects three inputs. 
When INPUTTER is executed, variable A is assigned the value 100 and 
variable B is assigned the value 200. Then, since the secondary output 
buffer is now empty, a prompt message is displayed on the terminal and 
C is assigned the value entered in from the keyboard. 

INPUTTER 

001 INPUT A 
002 INPUT B 

003 PRINT "Enter department code": 

004 PROMPT 
005 INPUT C 


:RUN.BPJ 

RUN BP INPUTTER 
100 _ 

200 _ 

Enter department code: 
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Using SSELECT and COPY Commands 

The following example shows a sample operation at the TCL level using 
a SSELECT command and then a COPY command. 

:SSELECT INVENTORY WITH QOH > "900" BY-DSND QOHJ 

19 items selected 

:COPY INVENTORYJ 
TO: (HOLD-FILE) J 

19 items copied 


The following PROC named SELECT.COPY will perform the sample 
operation as above. An IF S test after line 5 is used to avoid executing 
the COPY statement if no items were selected. For more information on 
the IF S test, see the IF command listed in Chapter 2 of this manual. 

SELECT.COPY 

001 PQ 

002 HSSELECT INVENTORY WITH QOH > "900" BY-DSND QOH 
003 STON 
004 H< 

005 P 

006 IF #S X 

007 HCOPY INVENTORY 

008 STON 

009 H(HOLD-FILE)< 

For more information using the SSELECT verb, please refer to the 
Ultimate RECALL and Ultimate UPDATE User Guide. For further 
information about the COPY and SSELECT command formats, refer to 
the Ultimate System Commands Guide. 
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Reading Tape Files 

The following PROC named T-READER reads the first record of 
successive tape files using the T-READ command. 

T-READER 

001 PQ 

002 C PROC to T-READ the first record of 

003 C successive tape files 

004 C Read 1 record 

005 1 HT-READ 1 

006 P 

007 O 

008 OContinue to read the next record (Y/N)+ 

009 IN? 

010 C If user does not continue, exit 
Oil IF A = N X 

012 C If user continues, tape is forwarded to next file 
013 HT-FWD 
014 P 

015 C Go to label 1 to read another record 
016 G 1 

For more information using the T-READ and T-FWD commands, please 
refer to the Ultimate System Commands Guide. 
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Using Two Operator Inputs in One Command 

The following PROC combines two parameters entered by the operator 
with a literal string in the primary output buffer that directs the system to 
list a record that has the required values. The operator must enter a 
balance equal to or greater than 0; otherwise, the PROC will prompt the 
operator for another balance. 


ACCT.BAL 




001 

PQ 




002 

T C 




003 

O 




004 

OEnter filename to list 

current balance from + 

005 

SI 




006 

IP 




007 

10 O 




008 

OList only accounts with a balance 

greater 

than 

009 

S2 




010 

IP 




Oil 

IF A = (ON) G 20 




012 

G 30 




013 

20 H LIST 




014 

A1 




015 

H WITH CURR.BAL > " 




016 

A\2 




017 

H" NAME CURR.BAL (I 




018 

C Display input buffer 

parameters 



019 

OInput parameters are: 




020 

DO 




021 

O 




022 

C Display output buffer 

parameters 



023 

OOutput parameters are: 




024 

PW 




025 

X 




026 

30 O* * *BALANCE MUST BE 

EQUAL TO OR 

GREATER 

THAN 

027 

G 10 
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Printing Mailing Lists 

The following PROC produces a mailing list of selected item-IDs. It 
assumes that the item-IDs in the CUSTOMERS file are right justified 
numeric. 


MAIL.LIST 


001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

Oil 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 


PQ 

O Print a mailing list in alphabetical order 

1 O 

OEnter starting item-ID (X to end) + 

52 
IP 

IF A = X X 

IF #A G 1 

IF A # (ON) G 1 

2 O 

OEnter ending item-ID (X to end) + 

53 
IP 

IF A = X X 
IF #A G 2 
IF A # (ON) G 2 
H SORT CUSTOMERS 
H >= " 

A\2 

H" AND <= " 

A\3 

H" 

H BY NAME 
H ID-SUPP 

H NAME ADDRESS CITY STATE ZIP 
P 
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:MAIL.LISTJ 

Print a mailing list in alphabetical order 
Enter starting item-ID (X to end) :300J 
Enter ending item-ID (X to end) :305J 


PAGE 1 



time 

date 

NAME. 

ADDRESS. 

. CITY. 

STATE 

ZIP. . 

QUICK PRINT 

4 CARTER AVE. 

NEWARK 

NJ 

07111 

ROGERS LTD. 

80 MAIN ST. 

W. ORANGE 

NJ 

07052 

SLONA MANUF. 

103 HILLTOP RD. 

WHITING 

NJ 

08759 

THE PRINT SHOP 

10 MAIN AVE. 

W. HANOVER 

NJ 

07936 

ULTIMATE CORP. 

RIDGEDALE AVE. 

E. HANOVER 

NJ 

07936 


5 items listed. 
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Displaying Main Menu For Job Selection 

The following PROC uses T commands with cursor positioning values to 
display a menu. 


MENU 



001 

PQ 



002 

c 

-MAIN 

MENU- 

003 

100 T C 


004 

T, 

(26,2) 

-MAIN MENU- " 

005 

T, 

(14,5) 

- Accounting - " 

006 

T, 

(14,12)," 

-Distribution-" 

007 

T, 

(47,5) 

-- System- " 

008 

T, 

(10,7)," 

1. Accounts Receivable" 

009 

T, 

(10,8)," 

2. Accounts Payable" 

010 

T, 

(10,9) , " 

3. General Ledger" 

011 

T, 

(43,7) 

4. System Controls" 

012 

T, 

(43,8) 

5. Utility Menu" 

013 

T, 

(10,14) ,’ 

6. Inventory Control" 

014 

T, 

(10,15),' 

7. Order Processing" 

015 

T, 

(10,16),' 

8. Retail Point-of-Sale 

016 

T, 

(10,17) ,’ 

9. Purchase Orders" 

017 

T, 

(10,18),' 

10. Sales Analysis" 

018 

T, 

(10,19),' 

11. Physical Inventory" 

019 

200 T, (21,22)," Enter Selection (X 

020 

IN 



021 

IF 

#A G 200 


022 

IF 

A = X G 

999 

023 

IF 

A = END 

G 999 

024 

IF 

A = TCL 

G 999 

025 

IF 

A = OFF 

G 900 

026 

IF 

A # (ON) 

G 200 

027 

IFN A > 11 

G 200 

028 

G 

A 


029 

G 

200 


030 

1 

[MENUS MAR] 

031 

G 

100 


032 

2 

[MENUS MAP] 

033 

G 

100 


034 

3 

[MENUS MGL] 
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035 

G 

100 


036 

4 

[MENUS 

MIC] 

037 

G 

100 


038 

5 

[MENUS 

MOP] 

039 

G 

100 


040 

6 

[MENUS 

MPOS] 

041 

G 

100 


042 

7 

[MENUS 

MPO] 

043 

G 

100 


044 

8 

[MENUS 

MSA] 

045 

G 

100 


046 

9 

[MENUS 

MPI ] 

047 

G 

100 


048 

10 

[MENUS 

; MSYS] 

049 

G 

100 


050 

11 

[MENUS 

; MUTIL] 

051 

G 

100 


052 

900 HOFF 


053 

P 



054 

999 X 
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: MENU J 




-MAIN MENU - 

— 

— 

- Accounting - 

- System - 

1. 

Accounts Receivable 

4. System Controls 

2. 

Accounts Payable 

5. Utility Menu 

3. 

General Ledger 


— 

-- Distribution - 


6. 

Inventory Control 


7 . 

Order Processing 


8. 

Retail Point-of-Sale 


9. 

Purchase Orders 


10 . 

Sales Analysis 


11. 

Physical Inventory 



Enter Selection (X 

to end): 
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Notes 
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This appendix presents a list of ASCII codes for decimal number values 
from 0 through 255. The hexadecimal equivalent value and ASCII 
character generated are also given. 

Decimal values 0-31 are assigned as non-printable functions; these 
codes may be specified by control key sequences. In the listing, the 
control key is indicated by a caret ( A ) in the first position in the Key 
column. 

Decimal values greater than 127 (x'7F') are not defined in the ASCII 
character set. The functions or characters assigned to these values are 
dependent on the terminal being used. Special file structure functions 
and control key sequences have been assigned to decimal values 28 
through 31 (X'lC' through X'lF')and 251 through 255 (x’FB' through 
x'ff'). 
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Decimal 

Key 

Hexadecimal 

Name 

0 

A@ 

00 

NUL 

1 

A A 

01 

SOH 

2 

A B 

02 

STX 

3 

A C 

03 

ETX 

4 

A D 

04 

EOT 

5 

A E 

05 

ENQ 

6 

A F 

06 

ACK 

7 

A G 

07 

BEL 

8 

A H 

08 

BS 

9 

A I 

09 

HT 

10 

A J 

0A 

LF 

11 

A K 

OB 

VT 

12 

A L 

OC 

FF 

13 

A M 

OD 

CR 

14 

A N 

OE 

SO 

15 

A 0 

OF 

SI 

16 

A P 

10 

DLE 

17 

AQ 

11 

DC1 

18 

AR 

12 

DC2 

19 

A S 

13 

DC3 

20 

a t 

14 

DC4 

21 

A U 

15 

NAK 

22 

A V 

16 

SYN 

23 

A w 

17 

ETB 

24 

A X 

18 

CAN 

25 

A Y 

19 

EM 

26 

A Z 

1A 

SUB 

27 

A [ 

IB 

ESC 

28 


1C 

FS 

29 


ID 

GS 

30 


IE 

RS 

31 


IF 

US 
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Decimal 

Key 

Hex 

1 

Decimal 

Key 

Hex 

32 


20 


80 

P 

50 

33 

f 

21 


81 

Q 

51 

34 

it 

22 


82 

R 

52 

35 

# 

23 


83 

S 

53 

36 

$ 

24 


84 

T 

54 

37 

% 

25 


85 

U 

55 

38 

& 

26 


86 

V 

56 

39 

» 

27 


87 

W 

57 

40 

( 

28 


88 

X 

58 

41 

) 

29 


89 

Y 

59 

42 

* 

2A 


90 

Z 

5A 

43 

+ 

2B 


91 

[ 

5B 

44 


2C 


92 

\ 

5C 

45 

- 

2D 


93 

] 

5D 

46 


2E 


94 

A 

5E 

47 

/ 

2F 


95 


5F 

48 

0 

30 


96 

v 

60 

49 

1 

31 


97 

a 

61 

50 

2 

32 


98 

b 

62 

51 

3 

33 


99 

c 

63 

52 

4 

34 


100 

d 

64 

53 

5 

35 


101 

e 

65 

54 

6 

36 


102 

f 

66 

55 

7 

37 


103 

g 

67 

56 

8 

38 


104 

h 

68 

57 

9 

39 


105 

i 

69 

58 


3A 


106 

j 

6A 

59 

* 

3B 


107 

k 

6B 

60 

< 

3C 


108 

1 

6C 

61 

= 

3D 


109 

m 

6D 

62 

> 

3E 


110 

n 

6E 

63 

? 

3F 


111 

o 

6F 

64 

@ 

40 


112 

P 

70 

65 

A 

41 


113 

q 

71 

66 

B 

42 


114 

r 

72 

67 

C 

43 


115 

s 

73 

68 

D 

44 


116 

t 

74 

69 

E 

45 


117 

u 

75 

70 

F 

46 


118 

V 

76 

71 

G 

47 


119 

w 

77 

72 

H 

48 


120 

X 

78 

73 

I 

49 


121 

y 

79 

74 

J 

4A 


122 

z 

7A 

75 

K 

4B 


123 

{ 

7B 

76 

L 

4C 


124 

1 

1C 

77 

M 

4D 


125 

} 

ID 

78 

N 

4E 


126 


7E 

79 

0 

4F 


127 

DEL 

7F 
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Decimal Key 

Hexadecimal 

Symbol 

Name 

128 (x’80') thru 250 (x’FA') 

not used 


251 

FB 

SB 

Start buffer 

252 A \ 

FC 

SVM 

Subvalue Mark 

253 A ] 

FD 

VM 

Value Mark 

254 AA 

FE 

AM 

Attribute Mark 

255 A 

FF 

SM 

Segment Mark 
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Index 


< 


J (return character) vi 
+ (pointer) 2-1 
(...) command 2-9 
[...] command 2-11 
* (asterisk) command 2-6 
+ (delimiter) 2-50 
\ character 2-14 
_ (underscore) 2-1 
+ command 2-7 
-command 2-7 
«(line continuation) 2-26 
? (prompt) 2-52 

- A- 

A command 1-4,1-6,2-14 
ABORT statement 1-16 
Active buffers (see Buffers) 

Adding to a parameter 2-7 
Arithmetic function commands 2-7 
ASCII codes ( see Appendix A) 

Asterisk (*) command 2-6 

- B - 

B command 2-18 
Backslash 2-14 
BASIC statements 

Interact with PROC 1-16 thru 1-17 
Blanks 

Separating parameters 1-9,2-16,2-58 
Surround characters 1-5 thru 1-6,2-14 thru 

2-16 

BO command 2-19 
Branch to label 2-24 
Buffers 

Description 1-3 thru 1-7 
Input buffer 

Active 1-3,2-59 thru 2-60 

Clearing buffers 2-54 

Display 2-21 

Inputting data 2-26,2-44 thru 2-49 


Moving data 1-3,2-14,2-43 
Pointer 2-7,2-14,2-15,2-18,2-21, 
2-23, 2-42,2-57 thru 2-60 
Primary 1-3,2-21,2-49,2-52,2-54, 
2-57,2-59 

Secondary 1-3,2-39 thru 2-40, 2-44, 
2-52,2-54,2-60 

Selecting input buffer 2-44 thru 2-49, 
2-55, 2-58 thru 2-60 
Output buffer 

Active 1-3, 2-61 thru 2-62 
Clearing buffer 2-19,2-56 
Display 2-51 
Execution 2-51 
Inputting data 1-3,2-26 
Pointer 2-19,2-26,2-61 thru 2-62 
Primary 1-3, 2-4,2-14,2-26,2-51, 
2-56,2-61 

Secondary 1-7,2-4,2-14 thru 2-15, 
2-26 thru 2-27,2-52,2-56, 2-62 
Selecting output buffer 2-61 thru 2-62 
Surround characters 1-5 thru 1-6,2-14 
BUILD-PROC command 1-2,1-15 

-c- 

C command 2-20 
Carriage return 
Automatic 1-4 
D command 2-21 
Delimiter 1-5 

H command 2-26 thru 2-27 
CHAIN statement 1-16 
CLEARDATA statement 1-16 
Clearing buffers 2-19,2-54,2-56 
Combining operator inputs example 3-9 
Command descriptions 2-2 
Command formats 2-2 
Commands (see Chapter 2) 

Comment command 2-6,2-20 
Conditional branch, IF 2-28 
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Index 


Conventions used in this manual vi 

COPY command example 3-7 

Copy data 2-14,2-26,2-42 

Creating PROCs 1-2,1-9 

Cursor control value tables 2-65 thru 2-69 

-D- 

D command 2-21 
Data 

Display to terminal 2-21,2-51 
Input from terminal 1-3, 2-44 thru 2-48 
Input from tape 2-49 
Movement 1-3,2-14,2-26,2-42 
Secondary output buffer 1-4 thru 1-5, 1-7 
DATA statement 1-16 
Delimiter 1-5 

Display buffer content 2-21 thru 2-22, 2-51 
Display text 2-50, 2-63 thru 2-64 

- E- 

Editors 1-2, 1-9 

Error testing, IF 2-39 

Execute a PROC 1-4, 1-11,2-51 thru 2-53 

EXECUTE statement 1-11,1-16 

Execution control 1-18 

Exiting a PROC 2-51,2-71 

External results testing 1-18, 2-39 thru 2-40 

External subroutine call 2-11 

-F/G- 

F command 2-23 
File updating example 3-2 
First attribute 1-2,1-9 
First line of a PROC 1-2,1-9 
General command formats 2-2 
GET-LIST command 1-7,2-27 
G{0) command 2-24 

- H/l - 

H command 1-4 thru 1-6,2-26 
IF command 


Existence test 2-28,2-30 
Pattern match test 2-28,2-35 thru 2-38 
Relational test 2-28,2-32 thru 2-33 
Select-list test 2-28,2-40 thru 2-41 
System message test 2-28,2-39 
IH command 2-42 
IN command 1-3, 2-44 thru 2-45 
Input buffers (see Buffers) 

Input from tape 2-49 

Input from terminal 1-3, 2-44 thru 2-48 

Input pointer back 2-18,2-57 thru 2-58 

Input pointer forward 2-23, 2-57 thru 2-58 

INPUT statement 1-4,1-17 

Internal subroutine call 2-11 

Invoking a PROC 1-11 thru 1-14,2-51 thru 2-53 

IP command 1-3,2-46 thru 2-47 

IS command 1-3,2-44,2-48 

IT command 1-3,2-49 

- L- 

Labels 1-9, 2-24 thru 2-25 
Line continuation («) 2-26 
Linking to another PROC 2-9 thru 2-13 
LISTDICT 1-12 
LISTPROCS command 1-15 

-Ad- 

Mailing list example 3-11 thru 3-12 
Menu display example 3-13 
Move pointer back 2-18,2-57 thru 2-58 
Moving data to input buffer 2-42, 2-44 thru 2-49 
Moving data to output buffer 2-14,2-26 
Moving input pointer 2-23, 2-57 thru 2-58 
Moving output pointer 2-19 

-N/O- 

Numeric label 1-9,2-24 thru 2-25 

O command 2-50 

Output buffers (see Buffers) 

Output pointer back 2-19 
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Output text to terminal 2-50 thru 2-51,2-63 thru 
2-64, 2-71 

Output data to terminal 2-21,2-50 thru 2-51, 
2-63 

- P- 

P command 2-51 thru 2-53 
Parameter movement 1-3,2-14,2-26,2-42 
Pattern match table 2-36 
Pattern matching, IF 2-35 
PH command 2-51 

Pointer back command 2-18 thru 2-19, 2-57 thru 
2-58 

Pointer forward command 2-23,2-57 thru 2-58 
Positioning buffer pointers 2-18 thru 2-19, 2-23, 
2-57 thru 2-58 
PP command 2-51 
PQ 1-2,1-9 

Primary input buffer (see Buffers) 

Primary output buffer (see Buffers) 

PROC 

Buffers 1-3 thru 1-5 
Command formats 2-2 
Commands (see Chapter 2) 

Commands by function 1-18 thru 1-19 

Definition 1-1 thru 1-2 

Execution 1-11 thru 1-14,2-51 thru 2-53 

Exiting 2-51,2-71 

First line 1-2 

Interact with BASIC statements 1-16 thru 
1-17 

Summary of commands 2-2 thru 2-5 
Termination 2-51,2-71 
PROCLIB 2-12 
Processing a PROC (see PROC) 

PROCREAD statement 1-17 
PROC WRITE statement 1-17 
Prompt character 2-44 thru 2-48 
PUT statement 1-17 
PW command 2-51 
PX command 2-51 


-Q/R- 

QSELECT command 1-7, 2-27 
Quotes around parameters 1-5 
Reading a tape file example 3-8 
Reading a tape label 2-49 
Relational operator table 2-29 
Relational testing, IF 2-32 thru 2-34 
Resetting buffers 2-54 thru 2-56 
RI command 2-54 thru 2-55 
RO command 2-56 

Running a BASIC program example 3-6 
RUNPROC command 1-1,1-11,1-15 

-s- 

S(m) command 2-57 
Secondary input buffer (see Buffers) 
Secondary output buffer (see Buffers) 
SELECT command 1-7,2-27 
Select input buffer 2-44 thru 2-49,2-55,2-58 
thru 2-60 

Select output buffer 2-61 thru 2-62 
Select-lists 1-7 thru 1-8 
Select-list testing, IF 2-40 thru 2-41 
Selecting buffers 1-3, 1-19, 2-57 thru 2-62 
Setting buffer pointers 2-18 thru 2-19, 2-23, 
2-57 thru 2-58 
Sn command 2-58 
SP command 2-59 
SS command 2-60 
SSELECT command 1-7,2-27, 3-7 
Stack (see Buffers) 

STOFF command 2-61 
STON command 1-4,2-62 
STOP statement 1-17 
Subroutine call command 2-11 
Subtracting from a parameter 2-7 
Summary of commands 2-2 thru 2-5 
Surround characters 1-6,2-14,2-16 
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-T- 

T command 2-63 thru 2-70 

Tape input to primary input buffer 2-49 

Tape label input 2-49 

Tape positioning example 3-4 thru 3-5 

Terminal 

Cursor control 2-63 thru 2-70 
Display 2-21 thru 2-22,2-51,2-63,2-71 
Input from user 1-3,1-5,2-44 thru 2-48 
Input from tape 2-49 
Terminal Use 1-19 
Terminating a PROC 2-51,2-71 
Testing parameters 2-32 thru 2-38 
Text 

Displaying 2-21 thru 2-22,2-51,2-63, 2-71 
Inputting 2-44 thru 2-48 
Moving 2-26 
Outputting 2-50 

Transfer of control 2-9 thru 2-13,2-24,2-28 

- U/V/X - 

User input 1-3,2-44 thru 2-48 
Valid PROC commands 2-2 thru 2-5 
X command 2-71 thru 2-72 
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Ultimate 

THE ULTIMATECORP. 




Problem Identification Form 


Name Phone Number System Number Date 

_ ( ) _ 

At TCL, execute REV verb and enter the Hardware Platform: (manufacturer, model no.) 

following information: 

Firmware rev. _ _ 

Kernel rev. _ Host O/S and revision 

Async rev. _ 

Abs rev. _ _ 

Diags rev. _ Dealer Name 

ECOs _ 

At TCL, execute WHAT (LSWP) verb and attach listing to this report. 

Description of what happened and steps necessary to recreate (attach listings, tapes, if available): 
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FROM: 


Name: _ System Number: _ 

Company _ 

Address: _ 

City: _ State: _ Zip: 


Fold and tape. Please do not staple. 


The Ultimate Corp. 

717 Ridgedale Avenue 
East Hanover, NJ 07936 
Attn: Technical Support 


Fold and tape. Please do not staple. 
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Reader Comment Form 


Ultimate welcomes your comments. If you find a problem or error in this manual, or can suggest 
an improvement, please complete this form. Please attach additional sheets, if necessary. 


Name 

Phone Number 

( ) 

System Number 

Name of Manual 

Document Number 

Date 


Comments: 
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FROM: 


Name: _ System Number: _ 

Company _ 

Address: _ 

City: _ State: _ Zip: 


Fold and tape. Please do not staple. 


The Ultimate Corp. 

717 Ridgedale Avenue 
East Hanover, NJ 07936 
Attn: Technical Support 


Fold and tape. Please do not staple. 






Ultimate welcomes your suggestions. If you have a suggestion or would like to recommend an 
enhancement, please complete this form. Please attach additional sheets, if necessary. 


Name 

Phone Number 

System Number 

Date 


( ) 




Company Name Hardware Platform: (manufacturer, model no.) 


Dealer Name Host O/S and revision 


Suggestion: 
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FROM: 


Name: _ System Number: _ 

Company _ 

Address: _ 

City: _ State: _ Zip: 


Fold and tape. Please do not staple. 


The Ultimate Corp. 

717 Ridgedale Avenue 
East Hanover, NJ 07936 
Attn: Technical Support 


Fold and tape. Please do not staple. 





( 
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